[엑셀VBA] 마지막 행 위치 찾기

안녕하십니까 춤추는초코칩입니다.

 

엑셀VBA를 알아보는 시간입니다. 업무 중에 필요한 기능들이라 두서없이 써내려 가겠습니다.

마지막 행의 위치를 확인해야 경우에 사용할 수 있는 엑셀VBA를 만들어 봤습니다.

 

Sub LastRow()
    r = Sheets(1).Range("A1048576").End(xlUp).Row
    MsgBox ("A열의 마지막 행은 " & r & "행입니다.")
End Sub

 

 해당 명령어는 첫번째 시트의 A1048576 위치에서 가장 위에 있는 셀의 행 위치를 반환하는 함수입니다. A1048576에서 가장 위에 있는 값이라면, 반대로 이야기 해서 A1에서 A1048576까지 영역에서 가장 아래에 있는 셀을 이야기합니다. 엑셀의 행은 1,048,576개가 한계 이므로 A열에서 가장 아래에 있는 셀을 의미하게 됩니다.

 

 엑셀에서 실행하면 아래와 같이 메시지박스를 보여 줍니다.