单元格文本拆分后写进某列中

monkey3500

求助帮忙实现：
将A列中，每个单元格的文本用逗号拆分后，提取拆分结果，并以单列的形式写进C列内

monkey3500

A列中逗号数量是变动的

ovxyz

monkey3500

ovxyz 发表于 2023-5-19 14:59

这么简单的嘛！尴尬！！！！

杨建营

请楼主参考。

tanglf188

Sub test1()
    last = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
    arr = Sheet1.Range("A1:A" & last)
    For i = 1 To UBound(arr)
        If Len(arr(i, 1)) > 0 Then
            brr = Split(arr(i, 1), "，")
            last = Sheet1.Range("C" & Rows.Count).End(xlUp).Row
            If last > 1 Then last = last + 1
            Sheet1.Cells(last, 3).Resize(UBound(brr) + 1, 1) = Application.Transpose(brr)
        End If
    Next
End Sub

gwjkkkkk

Sub test()
Dim ar, i&, s$
ar = Range("A1", Cells(Rows.Count, "A").End(xlUp))
For i = 1 To UBound(ar)
    If ar(i, 1) <> "" Then s = s & "，" & ar(i, 1)
Next
br = Split(Mid(s, 2), "，")
[C1].Resize(UBound(br) + 1) = Application.Transpose(br)
End Sub