最大行、最大カラムを調べる、よく使うサブルーチンライブラリ LastRange.bas

LastRange.bas は、データの入っている最大行、列を捜査するサブルーチンが集められたサブルーチンライブラリです。

指定行から最大行列を探す(タイトル行加味)

使用例、

Dim ssht<br /> Dim kc 'データ連続検査桁<br /> Dim sr, sc 'データ開始行、開始桁<br /> Dim maxRow, maxCol '最大行、最大桁<br /> Dim filler '空セル許可数<br /> <br /> Set ssht = ActiveSheet<br /> sr = 3 'タイトル行を含ませない<br /> sc = 2<br /> kc = 3 '氏名欄が空欄でなければデータが入っていると考える<br /> filler = 1 '１行ぐらい空のセルがあっても気にしない<br /> <br /> Call LastRange.MaxRowColPT(ssht, kc, sr, sc, maxRow, maxCol, filler)<br /> <br /> Range(Cells(sr, sc), Cells(maxRow, maxCol)).Select<br />

結果、

指定行から最大行列を探す

使用例、

Dim ssht<br /> Dim kc 'データ連続検査桁<br /> Dim sr, sc 'データ開始行、開始桁<br /> Dim maxRow, maxCol '最大行、最大桁<br /> Dim filler '空セル許可数<br /> <br /> Set ssht = ActiveSheet<br /> sr = 3 – 1 'タイトル行を含ませる<br /> sc = 2<br /> kc = 3 '氏名欄が空欄でなければデータが入っていると考える<br /> filler = 1 '１行ぐらい空のセルがあっても気にしない<br /> <br /> Call LastRange.MaxRowColP(ssht, kc, sr, sc, maxRow, maxCol, filler)<br /> <br /> Range(Cells(sr, sc), Cells(maxRow, maxCol)).Select<br />

結果、


Dim ssht<br /> Dim kc 'データ連続検査桁<br /> Dim sr, sc 'データ開始行、開始桁<br /> Dim maxRow, maxCol '最大行、最大桁<br /> Dim filler '空セル許可数<br /> <br /> Set ssht = ActiveSheet<br /> sr = 3 'タイトル行を考慮しない<br /> sc = 2<br /> kc = 3 '氏名欄が空欄でなければデータが入っていると考える<br /> filler = 1 '１行ぐらい空のセルがあっても気にしない<br /> <br /> Call LastRange.MaxRowColP(ssht, kc, sr, sc, maxRow, maxCol, filler)<br /> <br /> Range(Cells(sr, sc), Cells(maxRow, maxCol)).Select<br />

結果

なぜ、MaxRowColP と　MaxRowColPT があるか

エクセルでセル操作プログラムを書くとき、常にデータ行がどこから始まり、また、それぞれのカラムが何を意味するのか定義して使用します。（個人差は認めますｗｗ）

例えば、
の場合、タイトル行は、２行目、データ行は、３行目、桁は、左から ATTR 項目名 id size maxlength 初期値 となっています。

これを定義するにあたり、このように記述するようにしています。
TitlR = 2<br />DataR = 3<br /><br />n=2<br />AttrC = n: n = n + 1<br />ItemC = n: n = n + 1<br />IdidC = n: n = n + 1<br />SizeC = n: n = n + 1<br />maxlC = n: n = n + 1<br />InitC = n: n = n + 1<br />cEndC = n<br />

このように書くことによって項目桁を追加する場合、簡単に追加できるようになります。
直定数でカラムを指定してしまうと、１項目追加するだけでも大変な作業になってしまいます。

例えば、id と size の間に pass を追加する場合、シート状に１列あけて挿入します。
プログラム的には、以下のように id と size の間に１行追加すれば作業が終わります。

TitlR = 2<br />DataR = 3<br /><br />n=2<br />AttrC = n: n = n + 1<br />ItemC = n: n = n + 1<br />IdidC = n: n = n + 1<br />PassC = n: n = n + 1 ← 追加<br />SizeC = n: n = n + 1<br />maxlC = n: n = n + 1<br />InitC = n: n = n + 1<br />cEndC = n<br />

cEndC が横方向、の桁数をおさえていますが、 range(cells(sr,sc),(er,cEndC)).select などと記述している場所に影響を与えずに 桁の追加が可能になります。

この可搬性を考慮して ここまでフィールドの定義を行わない簡単なプログラムの場合、横方向をいちいちおさえるのを、これまた定数で定義してしまうと、シートの変更があったとき、作業量が膨らみます。

そのため、最低限の データ開始行、開始桁だけを定義しておくことにすれば、フィールド定義の負担も少なくなります。
この時必要になるのが、縦方向、横方向の最大を求めるサブルーチンです。

それが、MaxRowColPT と MaxRowColP になります。
タイトルの開始行だけおさえているのであれば、MaxRowColPT を使って横方向の最大を求めます。
データの開始行だけを抑えているのであれば、MaxRowColP を使って横方向の最大を求めます。

中味はほとんど同じで、指定された開始行から１引いて横方向を求めるのか、開始行で横方向を求めるかの違いだけです。

横方向の最大カラムを求める

縦方向、横方向の最大カラムを求める

最大行、最大カラムを調べる LastRange ダウンロード