求助怎么一行分成多行，数据有近千行，这个只是一部分

41414 · 发表于 2024-7-18 16:46

hugeinfo · 发表于 2024-7-18 16:57

=DROP(REDUCE("",E2:E9,LAMBDA(x,y,VSTACK(x,IFNA(HSTACK(IFNA(HSTACK(OFFSET(y,,-4,,4),TEXTSPLIT(y,,CHAR(10)),TEXTSPLIT(OFFSET(y,,1),,CHAR(10)),TEXTSPLIT(OFFSET(y,,2),,CHAR(10))),OFFSET(y,,-4,,4)),OFFSET(y,,3)),OFFSET(y,,3))))),1)

part98 · 发表于 2024-7-18 17:00

=DROP(REDUCE("",A3:A10,LAMBDA(x,y,VSTACK(x,IFNA(TRANSPOSE(TEXTSPLIT(TEXTJOIN(";",,OFFSET(y,,,,8)),CHAR(10),";")),OFFSET(y,,,,8))))),1)

飞天篮球猪 · 发表于 2024-7-18 17:05

huaichuan1 · 发表于 2024-7-18 17:06

把表格复制到word里，在复制回来。删除合并单元格后，选择带空白的列，F5选在空值，输入=a3，按ctrl+回车填充空值。即可完成

我的城市你来过 · 发表于 2024-7-18 17:12

=CHOOSECOLS(REDUCE($A$1:$H$1,$H$2:$H$9,LAMBDA(x,y,VSTACK(x,CHOOSE({1,2,3,4,5,6,7,8},y,TEXTSPLIT(OFFSET(y,,-1),,CHAR(10)),TEXTSPLIT(OFFSET(y,,-2),,CHAR(10)),TEXTSPLIT(OFFSET(y,,-3),,CHAR(10)),OFFSET(y,,-4),OFFSET(y,,-5),OFFSET(y,,-6),OFFSET(y,,-7))))),SEQUENCE(,8,8,-1))

ykcbf1100 · 发表于 2024-7-19 15:39

用VBA写一个，练手

ykcbf1100 · 发表于 2024-7-19 15:40

数据拆分。。。

Sub ykcbf() '//2024.7.19 数据拆分
Application.ScreenUpdating = False
With Sheets("数据")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
arr = .[a1].Resize(r, 8)
End With
ReDim brr(1 To 10000, 1 To 8)
On Error Resume Next
For i = 2 To UBound(arr)
b = Split(arr(i, 5), Chr(10))
For x = 0 To UBound(b)
m = m + 1
For j = 1 To UBound(arr)
brr(m, j) = arr(i, j)
Next
brr(m, 5) = Split(arr(i, 5), Chr(10))(x)
brr(m, 6) = Split(arr(i, 6), Chr(10))(x)
brr(m, 7) = Split(arr(i, 7), Chr(10))(x)
Next
Next
With Sheets("结果")
.UsedRange.Offset(1).Clear
With .[a2].Resize(m, 8)
.Value = brr
.Borders.LineStyle = 1
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
End With
Application.ScreenUpdating = True
MsgBox "OK！"
End Sub

复制代码

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

[已解决] 求助怎么一行分成多行，数据有近千行，这个只是一部分

评分

评分