USEDRANGE - 마지막셀 주소 찾기
마지막 셀을 찾는 작업은 항상 중요한 것 같다.
CURRENTREGION과 USEDRANGE, END 정도면 충분할까?
시트에 사용된 마지막 셀을 찾아봤다.
[코드샘플]
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