Vba:사용된 열 수를 계산하는 방법

다음 기본 구문을 사용하여 VBA를 사용하여 Excel 시트에 사용된 열 수를 계산할 수 있습니다.

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

이 특정 예에서는 Sheet1 이라는 시트에 사용된 열 수를 계산하고 그 결과를 셀 A10 에 표시합니다.

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

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

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

예시 1: VBA에서 사용된 열의 개수를 계산하고 결과를 셀에 표시

사용된 열 수를 계산하고 특정 셀에 결과를 표시한다고 가정해 보겠습니다.

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

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

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

셀 A10 에는 값 4가 포함되어 있습니다.

이는 4개의 열이 사용되었음을 알려줍니다.

예 2: VBA에서 사용된 열 수를 계산 하고 메시지 상자에 결과 표시

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

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

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

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

메시지 상자에는 4개의 열이 사용되었음을 알려줍니다.

참고 : 빈 열과 데이터가 포함된 열이 있는 경우 VBA는 계산에서 빈 열을 “사용됨”으로 계산합니다.

추가 리소스

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

VBA: 통합 문서의 시트 수를 계산하는 방법
VBA:범위 내 행 수를 계산하는 방법
VBA: 특정 텍스트가 포함된 셀 수를 계산하는 방법