有值时，对象需要错误

Question

我一直在为cellP.value获取一个对象必需的错误，但是范围有值......我似乎无法想出这个......

rng3 = Worksheets("Populations").Range("A2:A20")

For Each cellP In rng3

    If cellP > 0 Then

        Debug.Print cellP.Value

Answer 1

如果还没有，请为Dim添加rng3声明。

Dim rng3 As Range

然后更改用于设置rng3

引用的语法

Set rng3 = ThisWorkbook.Sheets("Populations").Range("A2:A20")