对象在有值时需要错误

我不断得到一个对象cellP.value所需的错误，但范围有值…我似乎无法弄清楚这一个出来…

rng3 = Worksheets("Populations").Range("A2:A20") For Each cellP In rng3 If cellP > 0 Then Debug.Print cellP.Value 

Answer 1

如果没有，请为rng3包含一个Dim语句。

 Dim rng3 As Range 

然后更改设置rng3引用的rng3

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