把多个表格合并到一个表格（把多个表格合到工作簿）

大家好,小东方来为大家解答以上的问题。把多个表格合并到一个表格，把多个表格合到工作簿这个很多人还不知道,现在让我们一起来看看吧！

1、算你走运了...本人珍藏的.此宏用于合并同一工作簿内的所有工作表！打开你的工作簿，按下alt+F11，插入-模块，看见一个模块1，复制下面的的内容，然后运行。

2、你的 工具-宏-安全性，设置为中，才能运行此宏。

3、按照提示做就可以了。

4、注意：如果工作表很多可能需要很长时间，请耐心等待！*//==========以下是宏===============Sub 合并各工作表内容()sp = InputBox("各表内容之间，间隔几行？不输则默认为0")If sp = "" Then sp = 0End Ifst = InputBox("各表从第几行开始合并？不输则默认为2")If st = "" Then st = 2End IfSheets(1).SelectSheets.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 = 0Next iSheets(1).SelectRange("A1").SelectMsgBox "这就是合并后的表，请命名！"End Sub。

本文到此分享完毕，希望对大家有所帮助。

免责声明：本文由用户上传，如有侵权请联系删除！