vba - 向现有宏添加特定条件

Question

我试过在这个网站上搜索，但我真的不知道我在找什么。我有以下运行良好的宏（取自此站点），但我想为其添加更多值以检查和删除。其中“AGGF”是它查找和删除的内容，我还有其他几个词希望它搜索和删除。我可以在 AGGF 之后以某种方式使用“OR”以便我可以做到这一点吗？

Sub AUMReport()
'
' AUMReport Macro
'   Dim lRow As Long
    Dim iCntr As Long
    lRow = 390
    For iCntr = lRow To 1 Step -1
        If Cells(iCntr, 1).Value = "AGGF" Then
            Rows(iCntr).Delete
                    End If
        Next

'
End Sub

标签： vba

Answer 1

使用 aSelect Case代替If Then：

Sub AUMReport()
'
' AUMReport Macro
Dim lRow As Long
Dim iCntr As Long
lRow = 390
For iCntr = lRow To 1 Step -1
    Select Case Cells(iCntr, 1).Value
        Case "my-first-value", "my-second-value", "my-third-value", "my-etc"
        Rows(iCntr).Delete
    End Select
Next

'
End Sub