広告
最終行や最終列を取得するコード
エクセル業務を自動化する際、出力結果によって参照範囲を変えたい時がありますね。そこで最終行や最終列を取得するコードです。
lastrow = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
lastcol = Worksheets(1).Cells(1, Columns.Count).End(xlToLeft).Column
lastrowの「Cells(Rows.Count, 1)」という通り、1列目（A列）の最終行です。
同様にlastcolの「Cells(1, Columns.Count)」は1行目の最終列です。必要に応じて取得したい列番号や行番号を入力して下さい。
ちなみに
「行」と「列」どっちがどっちか分からなくなりませんか？
こちらのサイトで覚え方を紹介してくれています。なるほど、漢字の二本線で判断すればいいんですね。
行列で縦か横か迷ったら
広告
