如何在 Excel 中一次對多個工作表執行相同的巨集？

作者Xiaoyang修改日期2024-12-03

在 Excel 中，您可以對單一工作表執行巨集，但若需同時將相同的巨集套用至多個工作表該怎麼辦？與逐一為每個工作表觸發巨集相比，您其實能一次對所有選取的工作表同步執行該巨集。本指南將教您如何運用 VBA，更高效地對多個工作表執行相同巨集，為您省下寶貴的時間與精力。

使用 VBA 程式碼同時對多個工作表執行或運行相同的巨集

使用 VBA 程式碼同時對多個工作表執行或運行相同的巨集

若要同時對多個工作表執行巨集，而不需逐一觸發每個工作表，您可以套用以下 VBA 程式碼，請依照下列步驟操作：

1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點選插入＞模組，並將下列巨集貼到模組視窗中。

VBA 程式碼：同時對多個工作表執行相同的巨集：

Sub Dosomething()
    Dim xSh As Worksheet
    Application.ScreenUpdating = False
    For Each xSh In Worksheets
        xSh.Select
        Call RunCode
    Next
    Application.ScreenUpdating = True
End Sub
Sub RunCode()
    'your code here
End Sub

注意：在上述程式碼中，請複製並貼上您自己的程式碼，但請勿包含 Sub 標題與 End Sub 結尾，而是將其置於 Sub Runcode()和 End Sub 之間的指令碼區塊內。請參閱截圖：

VBA 編輯器的螢幕截圖，顯示用於在多個工作表上執行相同巨集的巨集程式碼

3. 接著，將游標置於第一段巨集處，並按下 F5 鍵執行程式碼，您的巨集將自動逐一套用至各個工作表！

輕鬆從多個活頁簿中移除巨集

Kutools for Excel 的批量刪除所有巨集工具，讓您一次快速從多個活頁簿中移除巨集！

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多