마지막셀 주소 찾기

마지막 셀을 찾는 작업은 항상 중요한 것 같다. CURRENTREGION과 USEDRANGE, END 정도면 충분할까?

시트에 사용된 마지막 셀을 찾아봤다.

myimg



Sub LastCellNum()

Dim sht As Worksheet
Dim LastRow As Integer
Dim LastColumn As Integer

Set sht = ThisWorkbook.Worksheets("Sheet1")

LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row
LastColumn = sht.UsedRange.Columns(sht.UsedRange.Columns.Count).Column

MsgBox "마지막셀은 " & LastRow & "번째 행, " & LastColumn & "번째열 입니다."

End Sub


이후에 차차 업그레이드를 해보자고.

끝.