Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 158|回复: 6

把一列数据拆成多列 并且每一列的行号不变

[复制链接]
发表于 2021-9-10 11:54 | 显示全部楼层 |阅读模式
本帖最后由 Joker2020 于 2021-9-10 11:56 编辑

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

数据拆分.rar

54.56 KB, 下载次数: 15

 楼主| 发表于 2021-9-10 11:56 | 显示全部楼层
回复

使用道具 举报

发表于 2021-9-10 13:21 | 显示全部楼层

祝順心,南無阿彌陀佛!


demo.rar

14.64 KB, 下载次数: 3

回复

使用道具 举报

 楼主| 发表于 2021-9-10 14:35 | 显示全部楼层
cutecpu 发表于 2021-9-10 13:21
祝順心,南無阿彌陀佛!

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

新问题.rar

73.29 KB, 下载次数: 4

回复

使用道具 举报

发表于 2021-9-10 14:49 | 显示全部楼层
Joker2020 发表于 2021-9-10 14:35
大佬出现新问题了  请帮我看看

祝順心,南無阿彌陀佛!

demo.rar

26.39 KB, 下载次数: 7

回复

使用道具 举报

发表于 2021-9-12 08:56 | 显示全部楼层
加了一个辅助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
A.png
回复

使用道具 举报

发表于 2021-9-12 17:51 | 显示全部楼层
学习了。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2021-9-16 19:51 , Processed in 2.119936 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表