hanbin712 wrote:
因為不知道要貼在哪 只好斗膽問一下
請問在Excel 中 有什麼函數 可以計算出字數 可以辦到
Super Model : 2
大家一起Fun : 5
而不是
Super Model : 11
大家一起Fun : 7
參考一下, 我在 JetConfig 內的 Source Code
Function Length(ByVal theStr As String) As Long
Dim i As Long
Dim L As Long
Dim inEng As Long
L = 0
inEng = False
For i = 1 To Len(theStr)
If Asc(Mid(theStr, i, 1)) < 0 Then
If inEng Then
L = L + 1
End If
inEng = False
L = L + 1
Else
If Mid(theStr, i, 1) = " " Then
If inEng Then
inEng = False
L = L + 1
End If
Else
inEng = True
End If
End If
Next
If inEng Then
L = L + 1
End If
Length = L
End Function