试试作者: 欢欢 时间: 2008-1-26 09:18
第二个方法:=SUM((CODE(MID(B2,ROW(INDIRECT("1:"&LEN(B2))),1))=41378)*1) 数组公式作者: pureshadow 时间: 2008-1-26 16:30
小爪又开始晒公式了
期待下一个作者: pingfan 时间: 2008-1-27 01:23
顶上去 谢谢高手 我用自定义函数作了一个
Function myfunction1(var As String) As Integer
Dim i As Integer
Dim j() As String
i = 0
j() = Split(var, "、")
Do Until j(i) = ""
i = i + 1
Loop
myfunction1 = i
End Function
分享一下 楼上给的我也收藏了 谢谢