excel運用VBA進行多表合并計算一例

在Excel中，用數據透視表可以輕松進行多個區域的數據合并計算。但當區域較多時，要在數據透視表向導中多次選擇區域，稍顯繁瑣。如果需要合并的工作表較多，可以用下面的VBA代碼來快速合并數據。區域的大小可以不同，各行或列的品種可以重復，但要求工作簿中各工作表中的數據存放在相同的位置。如下圖為工作簿中某兩個工作表中的數據，區域的起始位置都是E5單元格：

???

???

??? 方法是：將要存放合并數據的工作表命名為“匯總”，刪除工作簿中沒有合并數據的工作表，各工作表中要合并的數據右側和下邊沒有其他數據。然后在VBA編輯器中運行下面的代碼：

Sub Summary()
??? Worksheets("匯總").[e5].CurrentRegion.ClearContents
??? On Error Resume Next
???
??? Dim sh As Worksheet
??? For Each sh In ActiveWorkbook.Sheets
??????? If sh.Name <> "匯總" Then
??????????? With sh
??????????????? '獲取工作表中數據區域的行數
??????????????? i = .[e65536].End(xlUp).Row
??????????????? '獲取工作表中數據區域的列數
??????????????? j = .[iv5].End(xlToLeft).Column
??????????????? '將各工作表區域按R1C1樣式存入tempstr字符串中，各區域之間用","隔開
??????????????? tempstr = tempstr & "'" & sh.Name & "'!R5C5:R" & i & "C" & j & ","
??????????? End With
??????? End If
??? Next
??? '清除tempstr字符串中最后一個","
??? tempstr = Left$(tempstr, Len(tempstr) - 1)
??? '將tempstr字符串中的各區域名存入一維數組arr中
??? arr = Split(tempstr, ",")
???
??? '將各個區域的數據合并計算到"匯總"表
??? Worksheets("匯總").[e5].Consolidate arr, xlSum, True, True
??? Worksheets("匯總").[e5] = Sheet1.[e5]
End Sub

??? 上述代碼將工作簿中除“匯總”表以外的所有工作表中從E5單元格開始的區域合并計算到“匯總”表中