VBA Sheet의 행 개수, 열 개수 구하기

개요

VBA로 기능을 만들다 보면 데이터가 들어있는 시트에 데이터가 몇개가 있는지 그 개수가 필요할 때가 많습니다. 그 방법에 대해 알아보았습니다.

 

 

결론부터 말하면 

행개수 = Range("a1", Range("a1").End(xlDown)).Rows.Count

열개수 = Range("a1", Range("a1").End(xlToRight)).Columns.Count

 

이렇게 구하면 됩니다.

 

시트를 특정하고 싶다면

행개수 = Sheets("시트명").Range("a1", Range("a1").End(xlDown)).Rows.Count

위와 같이 앞에 Sheets()를 이용해 시트를 정해주시면 됩니다.

 

 

아래와 같이 21행 7열의 sheet가 있다고 할 때 

 

이 sheet의 크기를 구하는 sub routine은 아래와 같습니다.

Sub count_volume()

    행개수 = Range("a1", Range("a1").End(xlDown)).Rows.Count

    열개수 = Range("a1", Range("a1").End(xlToRight)).Columns.Count

    

    MsgBox (행개수)

    MsgBox (열개수)

    

End Sub

 

 

end.