如何在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 次浏览

开启您的职业生涯

完成课程获得认证

开始学习
广告