Excel多個工作表合併至一個工作表!
![Excel多個工作表快速合併至一個工作表!](http://p2.ttnews.xyz/loading.gif)
效果如下所示:
![Excel多個工作表快速合併至一個工作表!](http://p2.ttnews.xyz/loading.gif)
要求彙總至一個工作表
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小時!
閱讀更多 Excel自學成才 的文章