vba - 用数组替换 'If Activecell.value = X' 的长列表？

Question

我编写了一个宏来搜索一列文本并删除与下面宏中的文本匹配的值(当文本匹配时，整个行将被删除)。要删除的值列表大约有 140 个唯一数字，我在下面列出了 5 个作为示例。

编写这部分代码的简化方法是什么，而不是编写 'Activecell.Value = XXXX Or _' 140 次？

我正在研究使用数组来存储我想要删除的所有值的方法，但我无法正确实现它。

感谢您的帮助!

Sub DeleteClosedStores()

Range("F7").Select

While ActiveCell.Value <> ""
    If ActiveCell.Value = 25401 Or _
        ActiveCell.Value = 8587 Or _
        ActiveCell.Value = 8275 Or _
        ActiveCell.Value = 8518 Or _
        ActiveCell.Value = 8522 Or Then

        Selection.EntireRow.Delete
    Else
        ActiveCell.Offset(1, 0).Select
   End If
Wend

Answer 1

像这样编写宏:

Sub DeleteClosedStores()
Range("F7").Select
Dim KillArray
KillArray = Array(25401, 8587, 8275,8518,8522)
Dim f As Variant
While ActiveCell.value <> ""
    f = Filter(KillArray, ActiveCell.value)
    If UBound(f) <> -1 Then
        Selection.EntireRow.Delete
    Else
        ActiveCell.Offset(1, 0).Select
   End If
Wend
End Sub

@sarvesh 当然是对的。您需要在某处输入您的值。