마지막 셀 찾는 방법 총 정리 (마지막 행/열 반환) :: 엑셀 위키

With ThisWorkBook.WorkSheets("시트명")
    ' 사용된 모든 범위에서 마지막셀을 찾습니다.
    Dim endRow As Long ' 마지막행
    Dim endCol As Long ' 마지막열
    endRow = .UsedRange.Rows.Count + .UsedRange.Row - 1
    endCol = .UsedRange.Columns.Count + .UsedRange.Column - 1
End With

With ThisWorkBook.WorkSheets("시트명")
    ' 특정 행/열에서 마지막셀을 찾습니다.
    Dim endRow As Long ' 마지막행
    Dim endCol As Long ' 마지막열
    endRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    endCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
End With

Sub Print_FinalCell()
 
Dim sShtName As String
 
sShtName = "시트1" ' 시트명을 입력합니다.
 
With ThisWorkbook.Worksheets(sShtName)
    Dim endRow As Long
    Dim endCol As Long
    Dim endCell As String
    endRow = .UsedRange.Rows.Count + .UsedRange.Row - 1
    endCol = .UsedRange.Columns.Count + .UsedRange.Column - 1
    endCell = .Cells(endRow, endCol).Address
End With
 
MsgBox sShtName & "의 마지막셀은 " & endCell & "입니다." & vbNewLine & _
        "행 번호는 " & endRow & "이고, 열번호는 " & endCol & "입니다."
 
End Sub