Excel用代碼sub運行匯總多個sheet工作表（重點筆記請保存!）
如圖所示：如何將sheet1、sheet2、sheet3、sheet4...幾百個工作表快速匯總在一張Excel表里？這里需要用到一個代碼，Sub可以合并當前工作簿下的所有工作表()，筆記如下：Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <>...
如圖所示：如何將sheet1、sheet2、sheet3、sheet4...幾百個工作表快速匯總在一張Excel表里？
這里需要用到一個代碼，Sub可以合并當前工作簿下的所有工作表()，筆記如下：
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "當前工作簿下的全部工作表已經合并完畢！", vbInformation, "提示"
End Sub
1、首先，原excel基礎上插入新工作表。
2、然后，在新的工作表中，鼠標右鍵，選擇查看代碼。
3、之后，會彈出代碼對話框。
4、然后，我們事先提前已編輯好代碼在txt記事本中全選復制。
5、將代碼粘貼到對話框里。
6、點擊運行。
7、最后，成功匯總完N個sheet工作表。
綜上所述，匯總完的表常見用于數據透視分析和圖表模型建立等方面，非常高效率。
歡迎收藏本站，獲取更多優質內容。如需轉載請保留本文地址。本文地址：http://www.zsliqing.cn/article/93.html
- 發表于 2023-04-03 20:53
- 閱讀 ( 467 )
- 分類：教程指南
