VBA

シートの最終行・最終列を取得

こんにちは、エクセル救急隊です。

ノンプログラマーですが、お仕事効率化のためにVBAでツールを作っています。
コードを覚えるのは大変なので、すぐに使えるようコピペ用コードを用意しました。

シートの最終行取得する

セルA1をキーに方向(Ctrl+)に取得

MaxRow = Range("A1").End(xlDown).Row

A列をキーに方向(Ctrl+)に取得

MaxRow = Cells(Rows.Count, 1).End(xlUp).Row

 

シートの最終列を取得

セルA1をキーに方向(Ctrl+)に取得

MaxCol = Range("A1").End(xlToRight).Column

1行目をキーに方向(Ctrl+)に取得

MaxCol = Cells(1, Columns.Count).End(xlToLeft).Column

 

おわりに

なにかのお役に立ちましたら幸いです。
以上、最後までお読みいただきありがとうございます。