最終行を取得

セル【A1】から始まるテーブルの最終行を取得するパターン。

途中で空白行が無い場合

Dim rowEnd As Long
rowEnd = Range("A1").End(xlDown).Row

途中で空白行がある場合

Dim rowEnd As Long
rowEnd = Range("A" & Rows.Count).End(xlUp).Row

最終列を取得

セル【A1】から始まるテーブルの最終列を取得するパターン。

途中で空白列が無い場合

Dim colEnd As Long
colEnd = Cells(1, 1).End(xlToRight).Column

途中で空白列がある場合

Dim colEnd As Long
colEnd = Cells(1, Columns.Count).End(xlToLeft).Column

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2022-01-21 (金) 18:24:21 (210d)