如果在多个工作表上执行计数excel vba

Question

我在运行下面的代码时遇到了对象定义的错误。请帮我调试代码。

For i = 5 To 11 
Cells(i, G).Value = Application.WorksheetFunction.CountIf(Workbooks(1).Sheets(1).Range("H:H"), Cells(i, F).Value) + Application.WorksheetFunction.CountIf(Workbooks(1).Sheets(2).Range("H:H"), Cells(i, F).Value) 
Next i 

Answer 1

你需要引用你的列，否则F和G是变量。

For i = 5 To 11 
Cells(i, "G").Value = Application.WorksheetFunction.CountIf(Workbooks(1).Sheets(1).Range("H:H"), Cells(i, "F").Value) + Application.WorksheetFunction.CountIf(Workbooks(1).Sheets(2).Range("H:H"), Cells(i, "F").Value) 
Next i