如何快速的合并多个 excel 工作簿成为一个工作簿

发布网友 发布时间：2022-03-03 03:13

我来回答

共3个回答

热心网友 时间：2022-03-03 04:42

alt+F11,把这段代码放进去看看。

下面是汇总多个工作簿的一种情形，也是一名网友提出的问题：在同一文件夹中有多个工作簿，其中
Sub UnionWorksheets()
Application.ScreenUpdating = False
Dim lj As String
Dim dirname As String
Dim nm As String
lj = ActiveWorkbook.Path
nm = ActiveWorkbook.Name
dirname = Dir(lj & "\*.xls*")
Cells.Clear
Do While dirname <> ""
If dirname <> nm Then
Workbooks.Open Filename:=lj & "\" & dirname
Workbooks(nm).Activate

'复制新打开工作簿的第一个工作表的已用区域到当前工作表
Workbooks(dirname).Sheets(1).UsedRange.Copy _
Range("A65536").End(xlUp).Offset(1, 0)
Workbooks(dirname).Close False
End If

dirname = Dir
Loop
End Sub
文库资料：http://wenku.baidu.com/view/0b4f551d59eef8c75fbfb32b?fr=prin

热心网友 时间：2022-03-03 06:00

可以利用VBA快速合并多个工作簿软件版本：Office2013方法如下：1.新建一个工作簿或者打开一个要合并到的工作簿，Alt+F11，打开VBA编辑界面，输入如下代码：Sub 工作薄间工作表合并()Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx", MultiSelect:=True, Title:="合并工作薄")X = 1While X <= UBound(FileOpen)Workbooks.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Suberrhadler:MsgBox Err.DescriptionEnd Sub2.F5执行代码，选择要合并的多个工作簿后，点击打开：3.这样，选择的工作簿就变成了当前工作簿的一个个工作表，从而合并到了一个工作簿中：

热心网友 时间：2022-03-03 07:35

您好，请问您是想知道如何快速的合并多个 excel 工作簿成为一个工作簿吗？