如何把数据拆分

13067007686

如图 怎么把 A B列的数据 进行拆分 生成C D 列这样

13067007686

B行 我可以用这个代码进行拆分  但是A行 暂时没有什么好的办法

Sub 分行2()
    Dim i, k, div_No, m As Integer
     Dim r As Long
    r = Cells(Rows.Count, "A").End(3).Row
    k = 2
    For i = 2 To r
     
        div_No = Len(Range("b" & i)) - Len(WorksheetFunction.Substitute(Range("b" & i), ",", ""))
        If Range("b" & i) <> "" Then
            For m = 0 To div_No
                Range("i" & k) = Split(Range("b" & i), ",")(m)
              k = k + 1
            Next
        End If
    Next
End Sub

13067007686

B行我可以用这个代码进行拆分  A行暂时没有办法解决

Sub 分行2()
    Dim i, k, div_No, m As Integer
     Dim r As Long
    r = Cells(Rows.Count, "A").End(3).Row
    k = 2
    For i = 2 To r
     
        div_No = Len(Range("b" & i)) - Len(WorksheetFunction.Substitute(Range("b" & i), ",", ""))
        If Range("b" & i) <> "" Then
            For m = 0 To div_No
                Range("i" & k) = Split(Range("b" & i), ",")(m)
              k = k + 1
            Next
        End If
    Next
End Sub

sandays

PQ中拆分，逆透视。

yanglinzi

拆分裂，安分隔符，高级中选拆分成行。

13067007686

yanglinzi 发表于 2021-10-2 15:31
拆分裂，安分隔符，高级中选拆分成行。

高级中选拆分成行 这边没找到 我用的是wps 是不是 excle才有这个功能

我走我流

仅供参 ka0

洋务德雷

公式也是可以解决的

洋务德雷

如果用VBA，就要用到字典了

chenguiyu1234

这里从数据-分列-逗号-分成文本开始了，不然gif太大上传不了，开始是alt+D+P, 多重数据合并.rar (1.9 MB, 下载次数: 18)

2021-10-6 09:58 上传

点击文件名下载附件