excel几张表的相同位置的内容,如何粘贴到一张sheet上

来源：百度知道 编辑：UC知道 时间：2024/06/23 16:19:31
如：每个表的单元格B16上都有一个“单位名称”，想把所有这些“单位名称”自动复制到一个表中
再明确一下,我就是想把每张表的B16的内容写到一张新表上,有什么自动的办法?

如表SHEET1，SHEET2，SHEET3上单元格B16上都有一个“单位名称”，想把依次它们写入SHEET4的第1行1-3列上，可运行宏，宏代码如下：

sheets("sheet4").cells(1,1)=sheets("sheet1").cells(16,2)
sheets("sheet4").cells(1,2)=sheets("sheet2").cells(16,2)
sheets("sheet4").cells(1,3)=sheets("sheet3").cells(16,2)

把sheet1到sheet10的b16的值依次写到sheet11的a列。

sub xx()
j=1
for i=1 to 10
sheets(11).cells(j,1)=sheets(i).[b16]
j=j+1
next
end sub