[已解决]把一列数据拆成多列 并且每一列的行号不变

Joker2020

如图所示 想把A列的数据拆除多列   并且每一列的行号保持不变，请大佬指点，附件中有原文件

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-9-10 14:49

Joker2020 发表于 2021-9-10 14:35
大佬出现新问题了  请帮我看看

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

Joker2020

求助  在线等

cutecpu

Joker2020 发表于 2021-9-10 11:56
求助  在线等

祝順心，南無阿彌陀佛！

Joker2020

cutecpu 发表于 2021-9-10 13:21
祝順心，南無阿彌陀佛！

大佬出现新问题了  请帮我看看

cutecpu

Joker2020 发表于 2021-9-10 14:35
大佬出现新问题了  请帮我看看

祝順心，南無阿彌陀佛！

roserice

加了一个辅助E列，
Sub aa()
Dim arr(1 To 4)
arr(4) = Range("a1").End(xlDown).Row
For i = 1 To 3
arr(i) = Application.Match(Sheet1.Range("e" & i), Sheet1.Range("a:a"), 0)
Next
For i = 1 To 3
Sheet1.Range("a" & arr(i) & ":a" & arr(i + 1) - 1).Copy Sheet1.Range("a" & arr(i)).Offset(0, i + 1)
Next
End Sub

fucheng941

学习了。

Joker2020

cutecpu 发表于 2021-9-10 14:49
祝順心，南無阿彌陀佛！

可以了 谢谢

Joker2020

roserice 发表于 2021-9-12 08:56
加了一个辅助E列，
Sub aa()
Dim arr(1 To 4)

我去试一试  谢谢