如何将多个表格的内容汇总到一个表格内

注意是不同的表格里面，不是一个表格里面的多张SHEET表

记得给分我。 //
==========以下是宏===============
Sub 合并各工作表内容()
sp = InputBox("各表内容之间，间隔几行？不输则默认为0")
If sp = "" Then
sp = 0
End Ifst = InputBox("各表从第几行开始合并？不输则默认为2")
If st = "" Then
st = 2
End IfSheets(1).Select
Sheets.Add

If st > 1 Then
Sheets(2).Select
Rows("1:" & CStr(st - 1)).Select
Selection.Copy
Sheets(1).Select
Range("A1").Select
ActiveSheet.Paste
y = st - 1
End If

For i = 2 To Sheets.Count Sheets(i).Select
For v = 1 To 256
zd = Cells(65535, v).End(xlUp).Row
If zd > x Then
x = zd
End If
Next v If y + x - st + 1 + sp > 65536 Then
MsgBox "内容太多，仅合并前" & i - 2 & "个表的内容，请把其它表复制到新工作薄里再用此程序合并！"
Else:

Rows(st & ":" & x).Select
Selection.Copy
Sheets(1).Select
Range("A" & CStr(y + 1)).Select
ActiveSheet.Paste

Sheets(i).Select
Range("A1").Select
Application.CutCopyMode = False
End If

y = y + x - st + 1 + sp
x = 0
Next iSheets(1).Select
Range("A1").Select
MsgBox "这就是合并后的表，请命名！"End Sub
打字不易，如满意，望采纳。

1.启动软件，打开需要汇总的文档，我可以看到在文档的下面有几个不同的明细表。 2.在表格的下面，重命名一个表格，我们暂且命名为“汇总”，然后选择单元格中左上角的第一个单元格。 3.在菜单栏中选择，：数据——合并计算。 4.再出现的对话框中函数中选择求和。 5.选择表格一，把表格一中的数据全部选中。 6.点击右侧的添加，将选中的表格一添加到所有引用位置。 7.参照第六步，将其余的需要汇总的表格都添加进去。 8.点击确定，就得到了汇总的结果。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息