Countif，范围和细胞

我在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 Teams”），请使用With ：

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