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

本文推薦兩種方法，可同時刪除 Excel 中多個工作表裡的相同列或區域。請按照以下步驟操作。

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

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

將所有工作表分組後，可以輕鬆地同時從這些工作表中刪除相同的列或區域。

1. 在當前工作簿中右鍵單擊任意工作表標籤，然後從右鍵菜單中選擇全選工作表。

2. 此時所有工作表已被選中，如果您在某個工作表中刪除某些列或區域，其他工作表中的相同列或區域也會一併被刪除。

3. 刪除所有工作表中的列或區域後，請右鍵單擊一個工作表標籤，然後從右鍵菜單中選擇取消分組工作表以解除所有工作表的分組。

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

除了上述方法外，您還可以運行以下 VBA 程式碼來刪除多個工作表中的相同列或區域。

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

1. 同時按下 Alt + F11 鍵打開 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，點擊插入 > 模組。然後複製並將以下 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 列將在當前工作簿的多個工作表中被刪除。您可以根據需要更改為所需的列。

3. 按下 F5 鍵運行程式碼，隨即會立即從當前工作簿的所有工作表中刪除指定的列。

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

若要刪除多個工作表中的相同區域，您可以嘗試以下 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 對話框中，選擇您要在多個工作表中刪除的區域，然後點擊確定按鈕。

現在，此特定區域中的單元格值已立即從當前工作簿的所有工作表中刪除。

相關文章：

• 如何在 Excel 的某些列中刪除包含缺失/空白值的列？
• 如何在 Excel 中刪除單元格大於/小於特定值的列？
• 如何在 Excel 中刪除除第一個標題列之外的所有列？
• 如何在 Excel 中刪除特定列或活動單元格下方的所有列？