VBA提高篇_11 Split字符串拆分/动态数组Demo

Split 字符串拆分

Split()函数

Split 拆分规则

去除数组中的非空字符串

Sub splitDemo5()
    Dim a As String, a() As String, x
    
    Dim b() As String, i As Long
    
    s = ",张三,李四,,王五,赵六,"
    
    a = Split(s, ",")
    
    '首先循环统计数组a中非空字符串的数量,记入i
    For Each x In a
        If x <> "" Then i = i + 1
        
    Next x
    
    '然后重新指定动态数组b的最大下标为i-1,即可容纳i个元素
    ReDim b(i - 1)
    
    '因为已经重新定义了数组大小,所以i记录的数字已经无用
    '我们可以将i设置为0,用来在后面循环时控制数组下标
    '这样可以少定义一个变量
    
    i = 0
    
    '再次扫描数组a 如果发现非空元素,写入b数组
    For Each x In a
        If x <> "" Then
            b(i) = x
            i = i + 1
        End If
    Next x
    
    '到此为止,b数组中就是所有拆分出来的非空字符串
    
End Sub