vba - 如何自动删除Excel中包含 "Grand Total"的所有行？

Question

在名为“报告”的事件工作表中，我有 2 列 I 和 F。

它具有包含文本“总计”的重复单元格。

如果它自动包含总计，我想删除整行。

VBA 代码会很好。

Answer 1

使用以下VBA代码，您可以快速删除具有特定单元格值的行，请按照以下步骤操作:

1. 选择要删除特定行的范围。

2. 单击“开发人员”>“Visual Basic”，将显示一个新的“Microsoft Visual Basic for applications”窗口，单击“插入”>“模块”，然后在模块中输入以下代码:

   根据单元格值删除整行的 VBA 代码(即总计):

   Sub Delete_Rows()
       Dim rng As Range, cell As Range, del As Range
       Set rng = Intersect(Range("A1:D22"), ActiveSheet.UsedRange)
       For Each cell In rng
       If (cell.Value) = "Grand Total" _
       Then
       If del Is Nothing Then
       Set del = cell
       Else: Set del = Union(del, cell)
       End If
       End If
       Next cell
       On Error Resume Next
       del.EntireRow.Delete
       End Sub
   

3. 然后点击“Play/Run”按钮运行代码，具有特定值的行已被删除。

(注意:如果您在 Excel 中看不到“开发人员”选项卡，请执行以下步骤:1)单击“Office 按钮”，然后单击“Excel 选项”。 2) 在“流行”类别中的“使用 Excel 的主要选项”下，选中“功能区中的显示开发人员选项卡”复选框，然后单击“确定”。)