你好，我想问一下，怎么利用vba把Excel中所有的工作表复制到另一个工作表里面

Question

如题所述

Answer 1

这个主要是用到For语句和Copy方法。
比如：把从第2个表开始的A1:A2单元格区域复制到第1张表的A列里面。
代码如下：
Sub ShCopy()
Dim i%, endrow%
'定义变量
For i = 2 To Sheets.Count
'变量i从2开始循环到整个工作簿的表的个数
endrow = Sheets(1).Range("A65536").End(xlUp).Row + 1
'给变量endrow赋值第一张表A列的最后一个非空单元格行号加1
Sheets(i).Range("B1:B2").Copy Sheets(1).Range("A" & endrow)
'复制第i张表的B1:B2单元格到第一张表A列的最后一个非空单元格行号加1
Next
End Sub

Answer 2

这个可以录制一个宏就可以看到代码了
sheets("").copy本回答被网友采纳

Answer 3

直接写代码就可以了。有所得需有所付出，可私聊我