VBA将逗号拆开，保存C到H列

laoau123

VBA将逗号拆开，保存C到H列

苏子龙

Sub test()
    Dim arr, brr, rw%, MaxRow%
    Range("c:i").ClearContents
    MaxRow = Range("a1").End(xlDown).Row
    arr = Range("a1:a" & MaxRow)
    For rw = 1 To UBound(arr)
        brr = Split(arr(rw, 1), ",")
        Cells(rw, 3).Resize(1, UBound(brr) + 1) = brr
    Next
End Sub

laoau123

苏子龙 发表于 2016-9-3 16:44
Sub test()
    Dim arr, brr, rw%, MaxRow%
    Range("c:i").ClearContents

果然高手这条怎么做

如何改成判断字符串重复1
http://www.excelpx.com/thread-424119-1-1.html