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

Spinachzhu · 发表于 2019-4-22 16:10

硬件汇总表(1).zip (7.32 KB, 下载次数: 2)

爱疯 · 发表于 2019-4-22 16:45

表1的A2

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

Spinachzhu · 发表于 2019-4-22 18:22

爱疯发表于 2019-4-22 16:45
表1的A2

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

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

weare2 · 发表于 2019-4-22 18:38

这样吗？

gqx3563610 · 发表于 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

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

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