2 【已解决】 如何使用VBA代码将Excel中多个工作表的数据合并到一个工作表中？
最佳答案 2023-04-11 17:30
在 Excel 中，可以通过编写宏（VBA代码）来实现将多个工作表中的数据合并到一个工作表中。具体操作步骤如下：
- 按下 Alt + F11 键打开 Visual Basic 编辑器；
- 在项目资源管理器窗口中右键点击“VBAProject（Workbook名称）”，选择插入 - 模块；
- 在新建的模块中输入以下代码：
Sub mergeData()
'申明范围
Dim sht As Worksheet, dest As Worksheet
Dim lastRow As Long, lastCol As Long
'定义目标表格
Set dest = ThisWorkbook.Worksheets("Sheet0")
'合并行
For Each sht In Workbooks("要复制数据的工作表.xlsx").Worksheets
If?sht.Name?<> "Sheet0" Then
lastRow = dest.Cells(Rows.Count, 1).End(xlUp).Row + 1
lastCol = sht.Cells(1, Columns.Count).End(xlToLeft).Column
sht.Range(sht.Cells(1, 1), sht.Cells(lastRow, lastCol)).Copy dest.Range("A" & lastRow)
End If
Next
End Sub- 保存文件，然后关闭 VBA 编辑器；
- 在 Excel 中打开要操作的工作簿，并按下 Alt + F8 打开宏对话框；
- 选择刚刚编写的“mergeData”宏并运行即可。
通过上述步骤，就可以快速地将多个工作表中的数据合并到一个目标工作表中了。
感谢您的支持，请随意打赏。您的赞赏将鼓励我继续创作！
Excel搬运工
- Excel大神
扫码关注微信公众号
