如何在 Excel 中删除多个工作表中的相同行或区域

ms excelmicrosoft technologiescomputers更新于 2024/8/24 2:52:17

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