如何在 Excel 中刪除多個工作表中的相同列或區域？

Author Siluvia Last modified 2025-08-23

在處理包含多個工作表的 Excel 工作簿時，您可能需要同時刪除所有工作表中的相同列或特定區域。例如，您可能需要從標準化工作簿的每個工作表中移除總結列、過時的數據或重複的部分。在每個工作表中手動進行這些刪除操作既效率低下又容易出錯，特別是在大型文件中。幸運的是，有實用的方法可以幫助您高效地刪除所有選定工作表中的相同列或區域。本文介紹了兩種主要方法，並提供了指導、提示、注意事項和故障排除，以幫助您順利準確地完成任務。

通過將所有工作表分組來刪除多個工作表中的相同列或區域
 使用 VBA 代碼刪除多個工作表中的相同列或區域

通過將所有工作表分組來刪除多個工作表中的相同列或區域

將工作表分組後，您可以一次對多個工作表執行相同的動作。這種方法簡單直接，特別適用於結構相同的工作表，並且希望更改反映在每張工作表中。通過分組，任何操作（如刪除列或區域）都將在所有分組成員的完全相同位置發生。

適用場景：此解決方案在以下情況下非常理想：

所有工作表的結構完全相同（行/列數量和排列一致）。
您希望在同一時間刪除每張工作表中的相同列或區域。

然而，請謹慎：在工作表分組時進行的任何操作都會影響所有分組工作表。如果您的工作表結構不同，可能會導致意外刪除。

要從多個分組工作表中刪除相同的列或區域，請按照以下步驟操作：

1. 在當前工作簿中右鍵單擊任意工作表標籤。從右鍵菜單中選擇「全選工作表」。這將把所有工作表分組在一起。

A screenshot of selecting all sheets from the right-click menu on a sheet tab in Excel

提示：如果您只需要分組特定的工作表（不是全部），按住 Ctrl 鍵並點擊您想分組的工作表標籤，然後右鍵單擊並選擇「分組工作表」。

2. 當所有工作表被分組後，在活動工作表中選擇您希望刪除的列或區域。當您使用「刪除」按鈕或右鍵單擊並選擇「刪除」時，相同的列或區域將自動在所有分組工作表的精確位置被刪除。

注意：撤銷（Ctrl+Z）也將影響所有分組工作表。在刪除之前，請仔細檢查是否選擇了正確的區域，因為此操作無法在每個工作表中單獨撤銷。

3. 完成刪除後，務必取消工作表的分組。再次右鍵單擊任意工作表標籤，並從菜單中選擇「取消分組工作表」。此步驟將防止進一步的意外更改影響所有工作表。

A screenshot of ungrouping sheets after deleting rows or ranges

實用建議：在分組之前，考慮保存工作簿的備份副本。如果有公式依賴於要刪除的列，請評估潛在影響。在取消分組時，確保您看到 Excel 標題欄中的文件名不再顯示 [Group]。

故障排除：如果您發現操作應用到了錯誤的列，立即使用撤銷功能，重新分組，並以準確的選擇重試。在進一步編輯之前，始終確認分組狀態。

使用 VBA 代碼刪除多個工作表中的相同列或區域

如果您需要在多個工作表中刪除相同的列或特定區域，特別是在處理複雜場景或大量工作表時，使用 VBA（Visual Basic for Applications）提供了一個快速且靈活的替代方案。VBA 允許自定義、批量處理，並可以根據更先進的條件或刪除非連續列/區域進行調整。

適用場景：在以下情況下選擇此方法：

您需要在大量工作表中刪除相同的列/區域，或者此類任務經常重複。
您的刪除要求涉及更複雜的邏輯（例如可變範圍，基於用戶輸入）。
由於結構不同或複雜，工作表不允許輕鬆分組。

注意事項：運行 VBA 代碼將直接修改您的數據。強烈建議在繼續之前保存工作簿的備份副本。此外，確保在 Excel 設置中啟用了宏。

刪除多個工作表中的相同列

1. 同時按下 Alt + F11 打開 Microsoft Visual Basic for Applications (VBA) 編輯器窗口。

2. 在 VBA 編輯器中，點擊「插入」>「模塊」創建一個新模塊。然後，將以下 VBA 代碼複製並粘貼到模塊的代碼窗口中：

Sub bleh()
    Dim xWs As Worksheet
    Set xWs = ActiveSheet
    ThisWorkbook.Worksheets.Select
    Rows("4:5").Select
    Selection.Delete
    xWs.Select
End Sub

注意：在 VBA 代碼中，4:5 表示將在當前工作簿的所有工作表中刪除第 4 和第 5 列。如果您希望刪除不同的列，請根據需要更改這些值。例如，僅刪除第 2 列，將 4:5 替換為 2:2。

3. 按下 F5 鍵執行代碼。指定的列將立即從工作簿中的每張工作表中刪除。

提示和提醒：如果發生錯誤（例如嘗試刪除不存在於較短工作表中的列），請確認所有工作表都有足夠的列。該代碼將處理可見的工作表；如果未適當處理，隱藏或受保護的工作表可能會導致錯誤。

故障排除：如果什麼都沒有發生或某些列未按預期刪除，請確認您已選擇正確的模塊，並且代碼沒有語法錯誤。還請檢查您的工作表保護狀態。

刪除多個工作表中的相同區域

如果您想刪除（清除）每個工作表中相同的單元格範圍（例如一塊數據，如 B2:D10），您可以使用以下 VBA 代碼。這種方法適用於您希望從特定區域而不是整個列中刪除數據的情況。

Private Sub CommandButton2_Click()
    Dim xRg As Range
    Dim xTxt As String
    Dim xWs As Worksheet
    On Error Resume Next
    Set xWs = ActiveSheet
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select the range you want to delete across multiple sheets:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xRg.ClearContents
    ThisWorkbook.Worksheets.Select
    ActiveWindow.SelectedSheets.FillAcrossSheets xRg, xlFillWithContents
    xWs.Select
End Sub

將 VBA 代碼複製並粘貼到模塊中後，按 F5 執行宏。在彈出的標題為「Kutools for Excel」的窗口中，選擇您希望在所有工作表中刪除的範圍，然後點擊「確定」。

A screenshot of selecting a range to delete across multiple sheets in the Kutools dialog box

一旦確認選擇，指定範圍內的值將從當前工作簿中的每個工作表中清除。

實用建議：當您需要從多個工作表中的相同單元格範圍清除值時，此方法最佳。請注意，這裡的「刪除」是指移除單元格內容，但不會實際向上/向左移動單元格；除非您的 VBA 代碼特別指示，否則不會執行對工作表結構的更改（如刪除整列/整行）。

注意事項：在執行宏之前保存文件以保護您的數據。如果所選工作表受保護或隱藏，VBA 可能會返回錯誤或跳過該工作表。

故障排除：如果對話框未出現，請確保已啟用宏並且您已正確粘貼完整代碼。如果刪除了錯誤的範圍，請使用正確的選擇重新運行宏。

總結建議：工作表分組和 VBA 方法都能實現高效的多工作表刪除。根據工作簿的結構以及您需要執行此類任務的頻率來決定。對於常規使用，保存您的 VBA 程序以便快速訪問，並考慮定制代碼以針對特定工作表或範圍。

其他替代方法

使用查找/替換手動重複：如果您只有少數幾張工作表，可以切換到每張表，選擇目標列或範圍，並手動刪除它們。雖然對於大量數據來說耗時，但這種方法避免了意外的工作表級更改的風險。
使用 Excel 公式（間接方法）：在某些複雜情況下，您可以使用公式和輔助列（如 INDIRECT、MATCH 和 IF 函數）標記要刪除的列，然後在篩選後手動刪除它們。這種技術更適合標記數據而不是跨工作表直接刪除，但在手動刪除之前可以幫助視覺驗證。

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多