求助帖，数据拆分

jin786123

如图，如何将一个单元格内的数据区分开，之前的数据用CTRL+回车 已经换行，如何将已经换行的数据 单独剥离出来，谢谢

3190496160

Sub 拆分()
Dim ar As Variant
Dim br()
With Sheets("sheet1")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 3 Then MsgBox "数据源我！": End
    ar = .Range("a1:c" & r)
End With
ReDim br(1 To 50000, 1 To 3)
For i = 3 To UBound(ar)
    If ar(i, 3) <> "" Then
        rr = Split(ar(i, 3), Chr(10))
        For s = 0 To UBound(rr)
            If rr(s) <> "" Then
                n = n + 1
                br(n, 1) = n
                br(n, 2) = ar(i, 2)
                br(n, 3) = rr(s)
            End If
        Next s
    End If
Next i
With Sheet2
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    If rs > 2 Then .Range("a3:c" & rs) = Empty
    .[a3].Resize(n, 3) = br
End With
MsgBox "ok!"
End Sub

3190496160

数据拆分.rar (17.69 KB, 下载次数: 4)

2024-10-7 08:49 上传

点击文件名下载附件

吃橘子么

用的soso工具集插件搞得

3190496160

或者，楼主可以研究一下TEXTSPLIT函数

jin786123

3190496160 发表于 2024-10-7 09:11
或者，楼主可以研究一下TEXTSPLIT函数

=TEXTSPLIT(B2,CHAR(10))

找了这个函数了，只是很多数据还要继续拆分，还在研究中

3190496160

jin786123 发表于 2024-10-7 09:49
=TEXTSPLIT(B2,CHAR(10))

找了这个函数了，只是很多数据还要继续拆分，还在研究中

给你的代码，就是一劳永逸，瞬间完成

沈默00

=REDUCE("物品名称",C3:C8,LAMBDA(x,y,VSTACK(x,TOCOL(TEXTSPLIT(y,CHAR(10),,1)))))

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。