[VBA]最終行、最終列のアドレス番号取得

こちらで最終行番号を調べるものを紹介しましたが、

セルのアドレス（”A1”や”C5”など）が欲しい時がありますよね

そんな時は以下コード参照

Dim lastRow , lastColumn as long                            '変数定義'
Dim Address1 as Variant                                    　'変数定義'


lastRow = Cells(Rows.Count, 1).End(xlUp).Row                '最終列を変数に挿入'
lastColumn = Cells(1, Columns.Count).End(xlToLeft).Column 　'最終行を変数に挿入'

'.Addressでcellsをアドレスに変換、変数に挿入'
Address1 = Cells(lastRow,lastColum).Address

解説

Cells(1, Columns.Count).End(xlToLeft)　　　　列番号１の左から最終行抽出

.Address　　　　　　　　　　　　　　　　　Cellsのアドレス取得

とくに注記することはありませんが

End(xlUp).Rowとか.End(xlToLeft)　特にxlupは非常に便利なんで覚えておきたいです。

私はよく忘れるのでnotoにメモ。