怎么把多个excel表格汇总到一

发布网友发布时间：2024-09-04 20:06

共1个回答

热心网友时间：2024-09-28 14:40

当需要将多个具有相同格式的Excel表格数据合并到一个工作表中时，VBA编程可以提供便捷的解决方案。在Office 2007版本及以上，你可以利用这个功能来实现。

首先，假设你有一个工作簿，其中包含多个工作表，它们的数据格式一致。为了将这些数据汇总到一个工作表，比如我们称之为“总表”，可以按照以下步骤操作：

1. 打开总表，按下Alt+F11键，进入VBA编辑器。

2. 在编辑器中，编写如下VBA代码，该代码的作用是逐个工作表中的AB两列（从第二行开始到最后一行，且不包括空值）进行复制，然后粘贴到“总表”中相应位置：

vba
Sub MergeData()
Dim ws As Worksheet, wsTemp As Worksheet
Dim lastRow As Long, i As Long
Set wsTemp = ThisWorkbook.Worksheets("总表")

'遍历所有工作表
For Each ws In ThisWorkbook.Worksheets
If ws.Name > "总表" Then
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
'只处理非空数据
For i = 2 To lastRow
If ws.Cells(i, 1).Value > "" And ws.Cells(i, 2).Value > "" Then
wsTemp.Cells(wsTemp.Rows.Count, "A").End(xlUp).Offset(1, 0) = ws.Cells(i, 1).Value
wsTemp.Cells(wsTemp.Rows.Count, "B").End(xlUp).Offset(1, 0) = ws.Cells(i, 2).Value
End If
Next i
End If
Next ws
End Sub

3. 点击运行按钮（F5）执行这段代码，数据就会被合并到“总表”中，形成一个汇总的工作表。