摘要：要将多个Excel文件的工作表内容合并到一个单独的工作表中，你可以使用以下的VBA宏代码。这个宏会遍历一个指定的文件夹，打开每个Excel文件，将其中第一个工作表（或你可以指定的工作表）的内容复制到一个新的或指定的目标工作簿的单一工作表中。
要将多个Excel文件的工作表内容合并到一个单独的工作表中，你可以使用以下的VBA宏代码。这个宏会遍历一个指定的文件夹，打开每个Excel文件，将其中第一个工作表（或你可以指定的工作表）的内容复制到一个新的或指定的目标工作簿的单一工作表中。
以下是详细的vbA代码示例：
复制以下代码：
Sub MergeExcelFilesToOneSheet
Dim folderPath As String
Dim FileName As String
Dim wbSource As Workbook
Dim wsSource As Worksheet
Dim wbTarget As Workbook
Dim wsTarget As Worksheet
Dim lastRow As Long
' 让用户选择包含Excel文件的文件夹
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "请选择一个包含Excel文件的文件夹"
If .Show = -1 Then
folderPath = .SelectedItems(1) & "\"
Else
MsgBox "未选择文件夹，操作已取消。", vbExclamation
Exit Sub
End If
End With
' 创建一个新的工作簿作为目标工作簿
Set wbTarget = Workbooks.Add
Set wsTarget = wbTarget.Sheets(1)
' 禁用屏幕更新以提高效率
Application.ScreenUpdating = False
' 获取文件夹中的第一个Excel文件名
fileName = Dir(folderPath & "*.xls*")
' 遍历文件夹中的所有Excel文件
Do While fileName ""
' 打开当前文件
Set wbSource = Workbooks.Open(folderPath & fileName)
' 假设要合并的是第一个工作表，可以根据需要修改
Set wsSource = wbSource.Sheets(1)
' 找到目标工作表的最后一行
lastRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row
' 如果目标工作表为空，则直接复制整个工作表内容
If lastRow = 1 Then
wsSource.UsedRange.Copy Destination:=wsTarget.Range("A1")
Else
' 否则，复制工作表的内容到目标工作表的末尾
wsSource.UsedRange.Offset(1, 0).Copy Destination:=wsTarget.Cells(lastRow + 1, 1)
End If
' 关闭当前文件，不保存更改
wbSource.Close SaveChanges:=False
' 释放内存
Set wbSource = Nothing
Set wsSource = Nothing
' 获取下一个文件名
fileName = Dir
Loop
' 恢复屏幕更新
Application.ScreenUpdating = True
' 通知用户合并完成
MsgBox "所有文件的工作表内容已成功合并到一个工作表中！", vbInformation
End Sub
代码解释
文件夹选择：使用FileDialog对象让用户选择一个包含Excel文件的文件夹。
目标工作簿创建：使用Workbooks.Add创建一个新的工作簿作为目标工作簿，并设置其第一个工作表为目标工作表。
屏幕更新控制：为了提高宏的执行效率，使用Application.ScreenUpdating来关闭屏幕更新。
文件遍历：使用Dir函数遍历文件夹中的所有Excel文件。
工作表内容复制：
对于每个文件，打开它并获取其第一个工作表。
找到目标工作表的最后一行。
如果目标工作表为空，则复制整个工作表内容到目标工作表的起始位置。
如果目标工作表不为空，则复制工作表的内容（不包括标题行）到目标工作表的末尾。
文件关闭：关闭当前文件，不保存更改，并释放相关内存。
屏幕更新恢复：数据合并完成后，恢复屏幕更新。
完成通知：通过消息框通知用户，所有文件的工作表内容已成功合并到一个工作表中。
使用方法
打开Excel，按Alt + F11进入VBA编辑器。
插入一个新模块（Insert -> Module）。
将上述代码粘贴到新模块中。
按F5键或点击运行按钮来执行宏。
根据提示选择包含待合并Excel文件的文件夹。
等待宏执行完成，合并后的数据将出现在一个新的工作簿的单一工作表中。
请确保所有待合并的Excel文件的工作表结构相同（即列数和列的顺序相同），以便数据能够正确合并。如果工作表结构不同，你可能需要对代码进行适当调整。
来源：黄河影音