自动将一列的数据转换成多行的数据，

chxw68 · 发表于 2024-1-22 09:19

刷卡机电脑监控发表于 2024-1-22 09:15
试了没动静，用的是2016版的excel

结果在Sheet2中。

笨鸟飞不高 · 发表于 2024-1-22 09:20

列转行.zip (13.23 KB, 下载次数: 16)

刷卡机电脑监控 · 发表于 2024-1-22 09:21

结果做成这样，首行的位置变了，不过用VBA办公真的很方便，谢谢老手们的解答

刷卡机电脑监控 · 发表于 2024-1-22 09:25

chxw68 发表于 2024-1-22 09:19
结果在Sheet2中。

请修改一下，把结果在sheet2那一步，改成，新建一个新的sheet里

刷卡机电脑监控 · 发表于 2024-1-22 09:26

lixikao 发表于 2024-1-22 08:49

代码简化不少，

limonet · 发表于 2024-1-22 09:34

函数1：=WRAPROWS(TOCOL(A1:A22,3,FALSE),3,"")
函数2：=INDEX(TOCOL(A1:A22,3,FALSE),SEQUENCE(5,3,1))

limonet · 发表于 2024-1-22 09:58

关键字：do while

limonet · 发表于 2024-1-22 09:59

Sub limonet()
Dim S$, Arr As Variant, Brr() As Variant
Columns("C:E").Clear
S = Join(Application.Transpose(Sheet1.UsedRange), " ")
Do While S Like "* *"
      S = Replace(S, " ", "  ")
Loop
Arr = Split(S, "  ")
ReDim Brr(1 To UBound(Arr) + 1, 1 To 3)
For i = 1 To 5
      Brr(i, 1) = Split(Arr(i - 1), " ")(0)
      Brr(i, 2) = Split(Arr(i - 1), " ")(1)
      Brr(i, 3) = Split(Arr(i - 1), " ")(2)
Next i
Range("C1").Resize(UBound(Brr), 3) = Brr
End Sub

sdytsxd991122 · 发表于 2024-1-22 10:01

练习一下

zhangcheng6688 · 发表于 2024-1-23 07:21

chxw68 发表于 2024-1-22 09:11
参与一下。

向老师学习，

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

[求助] 自动将一列的数据转换成多行的数据，

评分

评分