第1个回答 2014-09-30
写个语句就可以了
当然你这个例子举得太对称了,不知道你想最终变化的形状
比如你想将A列1到2000行的数据全部按照3个一列的顺序从B1:B3一直往后面列排
那么
for i=1 to 667 then
me.cells(1,i+1).values=me.cells(3*i-2,1).values '第一列赋值给后面的行
me.cells(2,i+1).values=me.cells(3*i-1,1).values
me.cells(3,i+1).values=me.cells(3*i,1).values
next
这样他就周期执行了
其中me代表excel当前的sheet,cells代表的是单元格,后面跟的是多少行,多少列本回答被网友采纳