導讀Excel多個工作表合并至一個工作表！效果如下所示：要求匯總至一個工作表1多個工作表表一數據：姓名定位性別程咬金坦克男劉禪坦克男墨子坦克男亞瑟坦克男鐘無艷坦....Excel多個工作表合并至一個工作表！

效果如下所示：

要求匯總至一個工作表

1多個工作表

表一數據：

姓名定位性別程咬金坦克男劉禪坦克男墨子坦克男亞瑟坦克男鐘無艷坦克女

表二數據：

表三數據：

2傳統方法：

使用ALT D P功能的多重合并計算，但是在添加字段時，如果存在100張表格，那么這種方法的效率是極低的

3VBA代碼

那么只需要使用VBA方法，就能輕松快速的解決，如果你的字段不是3個，那么僅需將下面字段中的標紅位置進行相應修改即可！

VBA代碼

Sub 多表合并()

Dim arr()

For Each sh In Sheets

If sh.Name <> "匯總" Then

arr1 = sh.Range("a2:c" & sh.UsedRange.Rows.Count)

act = act UBound(arr1)

ReDim Preserve arr(1 To 3, 1 To act)

For j = 1 To UBound(arr1)

n = n 1

arr(1, n) = arr1(j, 1)

arr(2, n) = arr1(j, 2)

arr(3, n) = arr1(j, 3)

Next

End If

Next

Sheets("匯總").[a2].Resize(n, 3) = Application.Transpose(arr)

End Sub

將文件另存為xlsm格式，要不然重新打開文件時這段代碼就消失了！

覺得好用的可以收藏分享給你的朋友哦！

---------------------------------

歡迎關注，更多精彩內容持續更新中....

學習5分鐘，工作省2小時！