[Excel] vba 마지막행 마지막열 찾기

 

마지막행과 열을 찾는 방법이 몇가지가 있습니다. 

(Excel Find Last Row, Last Column)

 

 

 

UsedRange를 이용하여 찾기

 처음시작하는 행과 열에서부터 마지막 행과 열 까지의 개수

ActiveSheet.UsedRange.Row                           '처음시작하는 행 : 2

ActiveSheet.UsedRange.Column                      '처음시작하는 열 : 2

ActiveSheet.UsedRange.Rows.Count               '처음시작하는 행에서부터 마지막행까지의 개수 : 7

ActiveSheet.UsedRange.Columns.Count          '처음시작하는 열에서부터 마지막열까지의 개수 : 3

 

UsedRange를 이용하여 마지막행과 열을 구할 수 있다.

ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1               '마지막행 : 8

ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1    '마지막열 : 4

 

A1셀에 값이 있다면 Rows.Count , Columns.Count 만으로 마지막 위치를 찾을 수 있다.

ActiveSheet.UsedRange.Rows.Count           'Sheet의 마지막행

ActiveSheet.UsedRange.Columns.Count      'Sheet의 마지막열

 

End를 이용하여 찾기

지정된 행과 열의 마지막 위치 찾기

ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row                  ' 2번열을 기준으로 끝에서 위로 찾을때 마지막 사용한 행 : 7

ActiveSheet.Cells(2, Columns.Count).End(xlToLeft).Column  ' 2번행을 기준으로 오른쪽 끝에서 왼쪽으로 찾을때 마지막사용한 열 : 2

 

SpecialCells를 이용하여 찾기

행과 열의 마지막 사용위치

ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Row '마지막행 8

ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Column '마지막열 4

 

정리하자면 

1. A1셀에 값이 있다면  UsedRange를 사용합니다. 

2. 공백에 상관없이 마지막을 알고 싶으면 SpecialCells를 사용합니다. 

3. 특정행 또는 특정열의 마지막을 알고 싶으면 End 함수를 사용합니다.