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

Microsoft Excel是一款功能強大的電子表格程式，廣泛用於資料管理、分析和報告。當處理跨多個工作表的大型資料集時，分別刪除每個工作表中相同的行或資料區域可能會非常耗時且費力。幸運的是，Excel包含許多工具和方法，可以幫助您加快此過程，從而節省時間和精力。

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

在這裡，我們將首先建立一個VBA模組，然後執行它來完成任務。讓我們來看一個簡單的過程，學習如何在Excel中刪除多個工作表中相同的行或區域。

步驟1

考慮一個Excel工作簿，其中在多個工作表中具有相同區域的資料。

首先，右鍵單擊任意工作表名稱，然後選擇“檢視程式碼”以開啟VBA應用程式。

右鍵單擊 > 檢視程式碼。

步驟2

然後單擊“插入”，選擇“模組”，並將以下程式碼複製到文字框中。

插入 > 模組。

示例

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

在程式碼中，4:5 表示刪除第4行和第5行。

步驟3

然後單擊F5執行模組，您將看到指定範圍內的資料將從所有工作表中刪除。

注意：如果要透過選擇區域來刪除單元格，請使用以下程式碼。

示例

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:", "Delete Same Rows", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xRg.ClearContents
    ThisWorkbook.Worksheets.Select
    ActiveWindow.SelectedSheets.FillAcrossSheets xRg, xlFillWithContents
    xWs.Select
End Sub

結論

在本教程中，我們使用了一個簡單的示例來演示如何刪除Excel中多個工作表中相同的行或區域，以突出顯示特定資料集。

更新於：2023年7月12日

254 次瀏覽

開啟您的職業生涯

完成課程獲得認證

開始學習
廣告