Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 204|回复: 5

[求助] 如何运用VBA或者宏录制实现将一列数据填列到多列

[复制链接]
发表于 2019-4-22 16:10 | 显示全部楼层 |阅读模式
2学分
硬件汇总表(1).zip (7.32 KB, 下载次数: 2)

硬件汇总表(1).zip

7.32 KB, 下载次数: 5

发表于 2019-4-22 16:45 | 显示全部楼层
表1的A2

=INDEX(Sheet2!$A:$A,(ROW()-2)*7+COLUMN())
回复

使用道具 举报

 楼主| 发表于 2019-4-22 18:22 | 显示全部楼层
爱疯 发表于 2019-4-22 16:45
表1的A2

=INDEX(Sheet2!$A:$A,(ROW()-2)*7+COLUMN())

非常感谢您的回答,这个方法我知道,我希望能使用宏录制或者VBA的方法。
回复

使用道具 举报

发表于 2019-4-22 18:38 | 显示全部楼层
这样吗?

硬件汇总表(1).rar

18.61 KB, 下载次数: 12

回复

使用道具 举报

发表于 2019-5-7 17:50 | 显示全部楼层
你手动做一个截图看下
回复

使用道具 举报

发表于 2019-5-8 16:29 | 显示全部楼层
建立模型:列数据转置到行数据关键地方:
for i = 1 to x
     for j = 1 to mod(y,7) '用mod控制到7即掉头
         Sheet1.cells(i,j).value = Sheet2.cells(y,1).value
     next
next

具体自己去实施,重要的是方法,方法,方法





回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2019-5-22 09:09 , Processed in 0.046800 second(s), 5 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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