Vba:범위 내 행 수를 계산하는 방법


다음 기본 구문을 사용하여 VBA를 사용하여 Excel에서 범위의 행 수를 계산할 수 있습니다.

 SubCountRows ()
    Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

이 특정 예에서는 A 열의 행 수를 계산한 다음 그 결과를 셀 E2 에 할당합니다.

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

 SubCountRows ()
    'Create variable to store number of rows
    Dim row_count As Integer
    
    'Calculate number of rows in range
    row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
    
    'Display the result
    MsgBox " Rows in Column A: " & row_count
End Sub

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

예 1: VBA를 사용하여 범위 내 행 수를 계산하고 셀에 결과 표시

A열의 행 수를 계산하고 그 결과를 특정 셀에 표시한다고 가정해 보겠습니다.

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

 SubCountRows ()
    Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

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

E2 에는 값 9 가 포함되어 있습니다.

이는 A열에 값이 있는 9개의 행이 있음을 나타냅니다.

예 2: VBA를 사용하여 범위 내 행 수를 계산하고 메시지 상자에 결과 표시

대신 A열의 행 수를 계산하고 그 결과를 메시지 상자에 표시한다고 가정해 보겠습니다.

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

 SubCountRows ()
    'Create variable to store number of rows
Dim row_count As Integer
    
    'Calculate number of rows in range
    row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
    
    'Display the result
    MsgBox " Rows in Column A: " & row_count
End Sub

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

메시지 상자에는 A열에 값이 포함된 9개의 행이 있음이 표시됩니다.

이 예에서는 A:A를 범위로 사용하여 A열 전체의 행 수를 계산했습니다.

그러나 대신 특정 범위의 값이 있는 행 수를 계산하려면 A2:A9 (또는 관심 있는 다른 범위)를 입력하면 됩니다.

추가 리소스

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

VBA: AVERAGEIF 및 AVERAGEIFS 함수 작성 방법
VBA: SUMIF 및 SUMIFS 함수 작성 방법
VBA: COUNTIF 및 COUNTIFS 함수 작성 방법

의견을 추가하다

이메일 주소는 공개되지 않습니다. 필수 필드는 *로 표시됩니다