vb
 
快速的合并多个
 
Excel
 
工作簿成一个工作簿
 
注意：
 
多个
 
excel
 
格式统一，并与代码中标红色文件后缀保持一致
 
Sub
 
工作薄间工作表合并
 
()
 
Dim FileOpen
 
Dim X As Integer
 
Application.ScreenUpdating = False
 
FileOpen
 
=
 
Application.GetOpenFilename(FileFilter:="Microsoft
 
Excel
 
文
 
件
 
(*.
 
xls
 
),*.
 
xls
 
", MultiSelect:=True, Title:="
 
合并工作薄
 
")
 
X = 1
 
While X <= UBound(FileOpen)
 
Workbooks.Open Filename:=FileOpen(X)
 
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
 
X = X + 1
 
Wend
 
ExitHandler:
 
Application.ScreenUpdating = True
 
Exit Sub
 
errhadler:
 
MsgBox Err.Description
 
End Sub

 
我们经常会接触很多电子文档，目前大部分都是PDF格式的，有时很多资料我们都只需要其中的第一页，那么如何把很多个PDF的首页单独弄出来再合并成一个新的PDF文件呢？
 
这里我们需要进行两步操作，第一步提取，第二步合并，我们都知道PDF编辑器可以对页面进行提取、删除等操作，但每次只能操作一个文档，这里我们需要操作的PDF文件较多，就需要借用到有批量操作的工具可以省时又方便。
 
这次我们主要用到极速PDF转Word这款本地转换工具，虽然它主打是PDF转换Word，但PDF相关功能也很好用，当然最重要的原因是一键批量操作，本地操作不需要网络，也不担心文件泄露安全问题。
 
下载并安装软件后，打开转换器并选择左侧工具栏中的“PDF拆分”，点击页面打开或直接将所有需要处理的PDF拖到这个转换页面都可以。
 

  
 
 
接着将拆分方式选择“按页面范围进行拆分”并将所有文件页面范围设置为1-1，点击右下角的开始拆分就可以了。
 

  
 
 
拆分完成后点击左下角的“打开目录”就能找到拆分后的仅保留首页的多个PDF文件，当然我们也可以在上一步拆分之前提前修改输出路径到常用的文件夹，比如桌面等等。
 

  
 
 
最后再选择左侧工具栏中的PDF合并，并上传我们上一步中拆分后的PDF文件添加，设置合并PDF文档名称和保存路径后，点击开始合并就完成啦。
 

  
 

 
　如何把两个excel表合并成一个的教程：
 
　　表格合并步骤1：如图：有二个工作簿，每一个工作簿中都有若干个工作表，在做合并之前，我们要将这两个工作表打开。
 

 

  
 
 

　　表格合并步骤2：在其中一个工作簿选择所有的工作表，方法是先选择第一个工作表，按住shift键，然后点最后一个工作表，这样就可以快速全部选中
 

 

  
 
 

　　表格合并步骤3：当然，你也可以右击任意一工作表，在弹出的菜单中选择“选定全部工作表”选择所有的工作表。
 

 

  
 
 

　　表格合并步骤4：右击工作表标签，在弹出的菜单中选择“移动或复制工作表”在第一个下拉框中选择另一个要合并的工作簿。
　　表格合并步骤5：这样就可以快速将当前工作簿的所有工作表合并到另外一个工作簿了。
 
　　表格合并步骤6：这里需要注意的是如果两个工作簿，有相同名字的工作簿的话，系统自动用(2)来命名。
 

 

  
 
 

　　表格合并步骤7：这样做的话，当前工作簿不会发生变化，复制移动的工作簿，会合并两个工作表的所有内容。
 
　　表格合并步骤8：如图你不想影响原来文件的话，你最好可以新建一个空白工作再复制移动工作表到新的文件啊。

 
 
 
  
如何快速把多个excel表格合并成一个excel表呢？
  
首先，我们需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel文件。
  

  
用microsoft excel打开新建的excel表，并右键单击sheet1，或者按ALT+F11，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。
  

  
然后我们把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：
  
Sub 合并当前目录下所有工作簿的全部工作表()
  
Dim MyPath, MyName, AWbName
  
Dim Wb As Workbook, WbN As String
  
Dim G As Long
  
Dim Num As Long
  
Dim BOX As String
  
Application.ScreenUpdating = False
  
MyPath = ActiveWorkbook.Path
  
MyName = Dir(MyPath & "\" & "*.xls")
  
AWbName = ActiveWorkbook.Name
  
Num = 0
  
Do While MyName <> ""
  
If MyName <> AWbName Then
  
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
  
Num = Num + 1
  
With Workbooks(1).ActiveSheet
  
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
  
For G = 1 To Sheets.Count
  
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
  
Next
  
WbN = WbN & Chr(13) & Wb.Name
  
Wb.Close False
  
End With
  
End If
  
MyName = Dir
  
Loop
  
Range("B1").Select
  
Application.ScreenUpdating = True
  
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
  
End Sub
  

  
点击运行，等待一会合并表格就完成了。
  

  
需要说明的是：B65536这个数值可以修改增加，根据内容多少，修改参数
  
对使用WPS的用户，可以选择WPS专业版，普通版没有VBA程序。