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