要将多个Excel文件的工作表内容合并到一个单独的工作表中，你可以使用以下的VBA宏代码。这个宏会遍历一个指定的文件夹，打开每个Excel文件，将其中第一个工作表（或你可以指定的工作表）的内容复制到一个新的或指定的目标工作簿的单一工作表中。
以下是详细的VBA代码示例：
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文件的工作表结构相同（即列数和列的顺序相同），以便数据能够正确合并。如果工作表结构不同，你可能需要对代码进行适当调整。