엑셀 VBA - COUNTIF 사용하기/조건에 맞는 개수 세기/엑셀 함수 가져다 쓰기

엑셀 VBA를 하다보면 엑셀의 함수를 가져다 쓰면 편할것 같다는 생각이 종종 든다.

 

예를 들면 FOR문을 이용해 코딩을 할 수도 있지만 머리 써야하고 귀찮다.

 

이를위해 엑셀의 함수를 가져다 쓰는 방법을 알아보자.

 

우선 조건에 맞는 셀의 개수를 세는 함수를 써보자

 

COUNTIF다.

 

조건에 맞는 셀을 세겠다는 거다.

 

*COUNTIF 가져다쓰기 코드 

------------------------------------------------------------------------------------------------------------------------------

Sub 조건만족_개수세기()

    Range("d5").Value = WorksheetFunction.CountIf(Range("b3:b11"), 2)
    
End Sub

 

------------------------------------------------------------------------------------------------------------------------------

 

D5의 셀에  B3~B11의 데이터 중 2인 셀을 세서 기입하겠다는 코드다.

 

COUNTIF 를 가져다쓰기 위해서는 WorksheetFunction을 앞에 붙이고 사용하면 된다.

 

이 코드를 실행하기 전에 아래의 예제 파일을 만들었다.

 

예제

 

코드를 실행하면 D5의 셀에 조건에 맞는 셀 수를 적어줄 것이다.

 

결과는 아래와 같다.

 

결과

 

 

끝.