Countif，范围和细胞

Question

我在VBA中有以下代码返回1004错误：

e = WorksheetFunction.CountIf(Worksheets("TG Teams").Range(Cells(4, w), Cells(12, w)), Worksheets("Calcs").Range("B" & a))

e，w和a都是整数。

该代码用于检查Calcs表中的名称是否也出现在TG Teams表中。范围可变的原因是CountIf需要每周检查一个不同的列。

任何想法如何解决我运行时遇到的错误1004？

Answer 1

您需要完全符合(Cells(4, w), Cells(12, w))以及他们所在的工作表（“TG团队”），使用With：

With Worksheets("TG Teams")
    e = WorksheetFunction.CountIf(.Range(.Cells(4, w), .Cells(12, w)), Worksheets("Calcs").Range("B" & a))
End With