求助帖，数据拆分

jin786123 · 发表于 2024-10-7 08:02

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

3190496160 · 发表于 2024-10-7 08:48

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 · 发表于 2024-10-7 08:49

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

吃橘子么 · 发表于 2024-10-7 09:09

用的soso工具集插件搞得

3190496160 · 发表于 2024-10-7 09:11

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

jin786123 · 发表于 2024-10-7 09:49

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

=TEXTSPLIT(B2,CHAR(10))

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

3190496160 · 发表于 2024-10-7 10:32

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

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

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

沈默00 · 发表于 2024-10-7 10:46

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

ykcbf1100 · 发表于 2024-10-7 20:20

附件供参考。。。

ykcbf1100 · 发表于 2024-10-7 20:21

参与一下。。。

		自动登录	找回密码
密码			免费注册

[求助] 求助帖，数据拆分

评分