Excel VBA 表の最終行と最終列を取得するサンプル（UsedRange,Find利用バージョン）

サンプル表のイメージ
サンプルコード
実行結果

サンプル表のイメージ

例えばこんな表があった場合の最終行と最終列を取得するためのサンプル

この例では、最終行は15行、最終列はH（8列）、この値を取得したい

また、Index a b …. ffff は見出しのつもり

サンプルコード

・FindLastRowAndColumn　は、調べたいワークシートを指定すれば、最終行（LastRow）と最終列（LastColumn）が取得できるようにしている。今回もっともシンプルなコード

・FindLastRowAndColumn2は、見出し名から位置を特定したい場合を想定し、調べたいワークシート、最終列になる見出し名、必要に応じて最終列の見出し名が指定された行番号を指定すると、最終行（LastRow）と最終列（LastColumn）が取得できるようにしている。

・どちらのサンプルも列位置の取得が失敗した場合　-1 を返却することとした。

実行結果

FindLastRowAndColumn LastRow =15  LastColumn=8
FindLastRowAndColumn2 LastRow =15  LastColumn=8
FindLastRowAndColumn2 +TargetRow ver.  LastRow =15  LastColumn=8
FindLastRowAndColumn2 +TargetRow ver NG( not hit fffffffff).  LastRow =15  LastColumn=-1

文書情報

記事タイトル: Excel　VBA　表の最終行と最終列を取得するサンプル（UsedRange,Find利用バージョン）
作成日: 2023.06.25
更新日: 2026.08.27
Source URL: https://papanda925.com/?p=2529

ライセンス: 本記事のうち、当サイトが権利を有する本文・自作図表は、特記なき限り CC BY 4.0 で利用できます。生成AIを活用して作成・編集した内容を含みます。コードについて、別途ライセンス表示またはリンク先GitHubリポジトリのライセンスがある場合は、その条件を優先します。引用・第三者資料・画像・商標等は本ライセンスの対象外です。利用ポリシー