大神们，求助下，如何将单元格里面的内容拆分

zzh222

如图，拆分前的表格，单元格里面有多个订单号


希望得到的结果，按照订单号拆分成多行，而且前后的单元格内容和原始的保持一致

624134745

PQ拆分到行？ 高级选项-拆分符号-换行符

3190496160

Sub 拆分()
Dim ar As Variant
Dim br()
ar = Sheets("原始").[a1].CurrentRegion
ReDim br(1 To UBound(ar) * 50, 1 To UBound(ar, 2))
For i = 1 To UBound(ar)
    If InStr(ar(i, 4), Chr(10)) = 0 Then
        n = n + 1
        For j = 1 To UBound(ar, 2)
            br(n, j) = ar(i, j)
        Next j
    ElseIf InStr(ar(i, 4), Chr(10)) > 0 Then
        rr = Split(ar(i, 4), Chr(10))
        For s = 0 To UBound(rr)
            n = n + 1
            For j = 1 To UBound(ar, 2)
                If j <> 4 Then
                    br(n, j) = ar(i, j)
                End If
            Next j
            br(n, 4) = rr(s)
        Next s
    End If
Next i
With Sheets("结果")
    .[a1].CurrentRegion = Empty
    .[a1].Resize(n, UBound(br, 2)) = br
End With
MsgBox "ok!"
End Sub

3190496160

新建一个工作表，命名为   结果，然后运行代码。切记

zzh222

3190496160 发表于 2021-1-29 10:29
Sub 拆分()
Dim ar As Variant
Dim br()

谢谢大佬，终于不用手动一个个单元格处理了。

zzh222

学到了，非常感谢大神，受益匪浅

zzh222

3190496160 发表于 2021-1-29 10:29
Sub 拆分()
Dim ar As Variant
Dim br()

请教，现在要拆分的数据放在第6列了，其他不变，应该把哪里修改下？@3190496160

臧礼莉

PQ解法，供参考，PQ的优势在于更新数据源后，可以用刷新，即可得到最新的数据

kangrz

我学习作的一个PowerQuery解决办法。

123-456789

友情参与！