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

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

1 个答案: