vba - VBA查找某些单元格中是否存在值

Question

我试图找出一个值是否只存在于这些特定的单元格中。我拼凑了来自各种来源的代码，但我似乎无法让它工作。

Resources = ActiveWorkbook.Sheets("Sheet1").Range("A1,A4,A6,A8,A10")
MsgBox Application.WorksheetFunction.CountIf(Range(Resources, 0), ">0")

根据Dim我为Resources变量设置的内容，我似乎遇到了各种错误，我不确定, 0它的用途是什么？

任何帮助将非常感激。

Answer 1

这是你正在尝试的吗？

Sub Sample()
    Dim Resources As Range, aCell As Range
    Dim n As Long

    Set Resources = ActiveWorkbook.Sheets("Sheet1").Range("A1,A4,A6,A8,A10")

    For Each aCell In Resources
        If aCell.Value > 0 Then n = n + 1
    Next

    MsgBox n
End Sub