Vba: 특정 텍스트가 포함된 셀 수를 계산하는 방법

다음 기본 구문을 사용하여 VBA를 사용하여 특정 텍스트가 포함된 범위의 셀 수를 계산할 수 있습니다.

 SubCountCellsWithText ()
    Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A13 "), " *avs* ")
End Sub

이 특정 예에서는 “avs”가 포함된 A2:A13 범위의 셀 수를 계산한 다음 그 결과를 셀 D2 에 할당합니다.

참고 : 별표( * )는 Countif 함수에서 와일드카드로 사용됩니다.

대신 메시지 상자에 셀 수를 표시하려면 다음 구문을 사용할 수 있습니다.

 SubCountCellsWithText ()

    Dim cellCount As Integer
    
    'Calculate number of cells that contain 'avs'
    cellCount = WorksheetFunction.CountIf(Range(" A2:A13 "), "* avs* ")
    
    'Display the result
    MsgBox "Cells that contain avs : " & cellCount
End Sub

다음 예에서는 다양한 농구 선수에 대한 정보가 포함된 Excel의 다음 데이터 세트를 사용하여 실제로 이러한 각 방법을 사용하는 방법을 보여줍니다.

예 1: VBA를 사용하여 특정 텍스트가 포함된 셀 수를 계산하고 셀에 결과 표시

팀 이름에 “avs”가 포함된 셀 수를 세고 특정 셀에 결과를 표시한다고 가정해 보겠습니다.

이를 위해 다음 매크로를 생성할 수 있습니다:

 SubCountCellsWithText ()
    Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A13 "), " *avs* ")
End Sub

이 매크로를 실행하면 다음과 같은 출력이 나타납니다.

셀 D2 에는 값 5 가 포함되어 있습니다.

이는 A2:A13 범위에 팀 이름에 “avs”가 포함된 5개의 셀이 있음을 나타냅니다.

예 2: VBA를 사용하여 특정 텍스트가 포함된 셀 수를 계산하고 메시지 상자에 결과 표시

대신 “avs”가 포함된 셀 수를 계산하고 그 결과를 메시지 상자에 표시한다고 가정해 보겠습니다.

이를 위해 다음 매크로를 생성할 수 있습니다:

 SubCountCellsWithText ()

    Dim cellCount As Integer
    
    'Calculate number of cells that contain 'avs'
cellCount = WorksheetFunction.CountIf(Range(" A2:A13 "), " *avs* ")
    
    'Display the result
MsgBox "Cells that contain avs : " & cellCount
End Sub

이 매크로를 실행하면 다음과 같은 출력이 나타납니다.

메시지 상자에는 팀 이름에 “avs”가 포함된 5개의 셀이 있음이 표시됩니다.

추가 리소스

다음 자습서에서는 VBA에서 다른 일반적인 작업을 수행하는 방법을 설명합니다.

VBA: “셀에 다음이 포함된 경우”에 대한 간단한 공식
VBA: 문자열에서 문자 발생 횟수를 계산하는 방법
VBA:문자열에 다른 문자열이 포함되어 있는지 확인하는 방법