Question

求大神ExcelVBA直接可执行代码，将不同工作簿（大量）的工作表的内容粘贴在同一工作表中

每个工作簿只有一张工作表，每个工作表的格式稍有差异，只需将所有工作表的内容依次粘贴在同一工作表中，不需要数据汇总

Answer 1

试试看这段代码，根据您的实际情况再修改下：
sub CopyToOneSheet()
Dim wbk As Workbook, wbkMain As Workbook, sht As Worksheet, lngRow&
Set wbkMain = ThisWorkbook 'wbkMain为合并数据的工作簿
For Each wbk In Application.Workbooks
wbk.Activate
Set sht = wbk.Worksheets(1)
wbkMain.Worksheets(11).Activate 'worksheets(11) 为合并的表
lngRow = wbkMain.Worksheets(11).[A1].CurrentRegion.Rows.Count
sht.Activate
sht.[A1].CurrentRegion.Copy wbkMain.Worksheets(11).Range("A" & lngRow)
Set sht = Nothing

Next
End Sub

追问

显示下表越界。。。。根据实际情况需要具体修改哪个地方啊，小白求指教

追答

wbkMain.Worksheets(11).Activate 'worksheets(11) 为合并的表
看您需要把数据放在哪个具体的工作表，如果放在第一个表，下半段代码改成：
wbkMain.Worksheets(1).Activate 'worksheets(11) 为合并的表
lngRow = wbkMain.Worksheets(1).[A1].CurrentRegion.Rows.Count
sht.Activate
sht.[A1].CurrentRegion.Copy wbkMain.Worksheets(1).Range("A" & lngRow)
Set sht = Nothing
Next
End Sub

追问

还是不行啊。。。能不能发给你帮我看看 感激不尽。。。。。

追答

guanyujun19842163.com 发我邮箱

追问

邮箱是不是错了啊T^T

追答

guanyujun1984@163.com

Answer 2

地煞阿斯达杀的杀大声道