如何将一个Excel工作簿中的多个工作表合并成一个工作表

如何将一个Excel工作簿中的多个工作表合并成一个工作表

打开你的工作簿，按下alt+F11，插入-模块，看见一个模块1，复制下面的的内容，然后运行。
你的 工具-宏-安全性，设置为中，才能运行此宏。
按照提示做就可以了。注意：如果工作表很多可能需要很长时间，请耐心等待！
*//
==========以下是宏===============
Sub 合并各工作表内容()
sp = InputBox("各表内容之间，间隔几行？不输则默认为0")
If sp = "" Then
sp = 0
End If
st = InputBox("各表从第几行开始合并？不输则默认为2")
If st = "" Then
st = 2
End If
Sheets(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 i
Sheets(1).Select
Range("A1").Select
MsgBox "这就是合并后的表，请命名！"
End Sub

原发布者:laoyangt0755 1、打开需要将所有单个的EXCLE表合到到一个表的工作簿，新建一个工作表在这个工作表中录入ALT+F112、你把下面的代码复制到里边去3、上面有个运行，运行子程序就可以了。代码如下Sub合并当前工作簿下的所有工作表()Application.ScreenUpdating=FalseForj=1ToSheets.Count  IfSheets(j).Name>ActiveSheet.NameThen    X=Range("A65536").End(xlUp).Row+1    Sheets(j).UsedRange.CopyCells(X,1)  EndIfNextRange("B1").SelectApplication.ScreenUpdating=TrueMsgBox"当前工作簿下的全部工作表已经合并完毕！",vbInformation,"提示"EndSub

打开你的工作簿 新建一个工作表 在这个工作表的标签上右键 查看代码 你把下面的代码复制到里边去，然后 上面有个运行 运行子程序就可以了，代码如下，如果 出现问题你可以尝试工具 宏 宏安全性里把那个降低为中或者低再试试 sub 合并当前工作簿下的所有工作表() application.screenupdating = false for j = 1 to sheets.count if sheets(j).name <> activesheet.name then x = range("a65536").end(xlup).row + 1 sheets(j).usedrange.copy cells(x, 1) end if next range("b1").select application.screenupdating = true msgbox "当前工作簿下的全部工作表已经合并完毕！", vbinformation, "提示" end sub

把问题作为内容（邮件主题一定要包含“excel”,本人以此为依据辨别非垃圾邮件，以免误删）,excel样表文件（把现状和目标效果表示出来）作为附件发来看下 yqch134@163.com

方法/步骤 如图：有二个工作簿，每一个工作簿中都有若干个工作表，在做合并之前，我们要将这两个工作表打开。 在其中一个工作簿选择所有的工作表，方法是先选择第一个工作表，按住shift键，然后点最后一个工作表，这样就可以快速全部选中 当然，你也可以右击任意一工作表，在弹出的菜单中选择“选定全部工作表”选择所有的工作表。 右击工作表标签，在弹出的菜单中选择“移动或复制工作表”在第一个下拉框中选择另一个要合并的工作簿。 5 这样就可以快速将当前工作簿的所有工作表合并到另外一个工作簿了。 6 这里需要注意的是如果两个工作簿，有相同名字的工作簿的话，系统自动用（2）来命名。