여러 워크 시트에서 여러 워크 시트에 걸쳐 Excel이

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