VBA如何拆分字符串，并进行统计？

xuqing12389

本人自定义了一个函数，打算分开以逗号分隔的单元格A1的字符串，并计算其中的数字个数，但是调试总是得不到结果，代码和附件如下，请求大神的帮助。谢谢。
Option Explicit
Function Separate(Slot As Range) As Integer
Dim Parts() As String, N As Integer, i As Integer
    '对字符串进行拆分，分成数组Parts
Parts = Split(Slot.Value, ",")
N = 0
    '判断数组元素个数的上限
For i = 0 To 100
    If Parts(i) <> "" Then
    Else
    N = i
    Exit For
    End If
Next i

For i = 0 To N
    '清洗数据，把一些不必要的符号全部去掉
    Parts(i) = Replace(",", "", 2)
    Parts(i) = Replace(";", "", 2)
    Parts(i) = Replace("[", "", 2)
    '如果是一位数字或两位数字则计入统计
    If Parts(i) Like "#" Or Parts(i) Like "##" Then
    i = i + 1
    Else
    '返回最终结果Separate，即需要统计的数字个数
    Separate = i + 1
    End If
Next i
End Function

约定的童话

必须要自定义吗？？？

xuqing12389

约定的童话 发表于 2019-6-15 09:43
必须要自定义吗？？？

传错附件了，应该是这个。最好是自定义函数。