Question

目前我的excel数据包含特定的单词和#N / A，单词就像＆＃34; build One＆＃34; ＆＃34; proj ex＆＃34; ..我准备了一个代码，它只删除了一个条件，但我想要它用于很多单词。下面是我的代码。欢迎任何帮助。感谢。

Sub del()
Dim rng1 As Range
Set rng1 = Range([B2], Cells(Rows.Count, "B").End(xlUp))
ActiveSheet.AutoFilterMode = False
With rng1
.AutoFilter Field:=1, Criteria:=("#N/A")
.Delete xlUp
End With
End Sub

Answer 1

使用变量数组作为单词列表的构造函数。

Sub del()
    Dim rng1 As Range, vDELs As Variant

    vDELs = Array("#N/A", "proj ex", "build One")
    Set rng1 = Range([B2], Cells(Rows.Count, "B").End(xlUp))

    ActiveSheet.AutoFilterMode = False
    With rng1
        .AutoFilter Field:=1, Criteria1:=(vDELs), Operator:=xlFilterValues
        With .Offset(1, 0)
            If CBool(Application.Subtotal(103, .Cells)) Then _
                .EntireRow.Delete
        End With
        .AutoFilter
    End With
End Sub

在Criteria1:=(vDELs)中包围数组的好方法。这很重要。在提交操作之前检查是否有要删除的行也是个好主意。

Answer 2

你可以尝试类似的东西：

sFormula = "=IF(OR(ISERROR(B:B),B:B=""proj ex"", B:B=""build One""),NA(),"""")"

Set rng1 = Range("A2:A" & Cells(Rows.Count, "B").End(xlUp).Row)
rng1.Formula = sFormula

＆＃39;现在使用SpecialCells删除行：

rng1.SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete shift:=xlUp

SO: How to delete multiple rows in Excel without a loop和Ron de Bruin Excel VBA Top Banana: Special Cells limit bug

上有关此类技术的更多信息

使用VBA删除具有特定单词的行

2 个答案: