VBA 表の最後のセルの行列番号を取得

表の最後のセルの行列番号を取得

Sub test()

      ’　表の最後のセルの行列番号を取得

    Dim myR As Range
    Dim xlcnt  As Long
    
    Set myR = Range("A2").CurrentRegion
    xlcnt = myR.Cells.Count
    
    MsgBox "表の最後のセル：" & _
            myR.Cells(xlcnt).Address & vbLf & _
           "セルの行番号 ：" & myR.Cells(xlcnt).Row & vbLf & _
           "セルの列番号 ：" & myR.Cells(xlcnt).Column
    Set myR = Nothing

End Sub

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る

『VBA　指定フォルダー内の全ファイルを開く』

『VBA ブックを閉じる（Closeメソッド）』

『VBA 条件付き書式をクリアする』

『VBA　条件付き書式で１行おき色塗り』