以铜为镜：Excel多表格合并公式

2020年11月11日发(作者：高露)

用宏实现：
新建一个工作表，命名后保存到和与合并的 N个文件同一个文件文件夹，按 alt + f11,双击工程资源管理
0K了。 器里面的sheetl(sheetl),在右侧的代码区粘贴如下代码。运行。等候一会就
宏1 ：合并当前目录下所有工作簿的全部工作表到当前工作表
Sub合并当前目录下所有工作簿的全部工作表
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Updating = False
MyPath =
MyName = Dir(MyPath &
AWbName =
Num = 0
Do While MyName <>
If MyName <> AWbName Then
Set Wb = (MyPath &
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range(
For G = 1 To
(G). .Cells(.Range(
Next
WbN = WbN & Chr(13) &
False
End With
End If
MyName = Dir
Loop
Range(
Updating = True
MsgBox 共合并了 个工作薄下的全部工作表。如下：
提示
End Sub
()
宏2 :多个文件表合到一个文件表的多个
Sub CombineWorkbooks()
Dim FilesToOpen, ft
Dim x As Integer
SHEET中
Updating = False
On Error GoTo errhandler
1 2


FilesToOpen = nFilename
文件(*.xls), *.xls
(FileFilter:=
MultiSelect:=True, Title:=

要合并的文件
If TypeName(FilesToOpen) =
MsgBox 没有选定文件
'GoTo errhandler
End If
x = 1
While x <= UBound(FilesToOpen)
Set wk = (Filename:=FilesToOpen(x))
().Move after:= _
(T )
x = x + 1
Wend
MsgBox 合并成功完成！
errhandler:
'MsgBox ption
'Resume errhandler
End Sub
2 2