Excel ： 入力されている最終位置、先頭位置の取得

Option Explicit

Private Sub CommandButton1_Click()
    Dim ln As Long
    
    '先頭列を調べる
    ln = ActiveSheet.Cells.SpecialCells(xlLastCell).Column
    
    MsgBox "入力されている先頭列は " & ln & " です。"
End Sub

Private Sub CommandButton2_Click()
    Dim ln As Long
    
    '最終行を調べる
    ln = Range("C1048576").End(xlUp).Row
    
    MsgBox "入力されている最終行は " & ln & " です。"
End Sub

Private Sub CommandButton3_Click()
    Dim ln As Long
    
    '最終行を調べる
    ln = ActiveSheet.Cells.SpecialCells(xlLastCell).Row
    
    MsgBox "入力されている最終行は " & ln & " です。"
End Sub

Private Sub CommandButton4_Click()
    Dim ln As Long
    
    '先頭行を調べる
    ln = Range("C1").End(xlDown).Row
    
    MsgBox "入力されている先頭行は " & ln & " です。"
End Sub