vba中把第一个表中的数据赋值到第二个表中

vba中把第一个表中的数据赋值到第二个表中

我同意yourcells的办法，
不过
根据我的经验
尽量不用sheets（2）和sheets（1）这种方式
因为2和1是顺序号
如果表的顺序变动了
就会得不到你要的结果且并不报错
建议使用表的名称
worksheets("表2的名称").cells(1,1)=worksheets(("表1的名称").cells(1,1)

你的arr数组，本是一维数组，不需要转置。

只有arr=range("a1:a" & m).value 得来的才是二维的，但是转置以后还是二维的。

用循环，用range也是可以的

for j for j =2 to 10 step 2
sheets("0" & aaa).cells(8,i)=brr(i)
for j =2 to 10 step 2
sheets("0" & aaa).range("b8").offset(0,j-2)=arr(j/2)

例如将表一的A1单元格值赋予表二的A1单元格，如下： sheets(2).cells(1,1)=sheets(1).cells(1,1) 同理可推。