VBA 最終行列の取得（空白混み）

質問

VBA 最終行列の取得（空白混み）

例えば以下のような場合正しくカウントするにはどの様にしたら良いでしょうか

□→空白セル　■→データあり

□ＡＢＣＤＥＦＧＨ
１□□□□□□□□
２■■■■■■■■
３■■■■■■■■
４■■■■■■■■
５□□□□□□□□
６■■■■■■■■

期待する戻り値
maxRow→6　maxColumn→8

行は最終行から特定可能ですが
その方法だと列は1か0を返してくると思います。

最大値を求める手法はどんな物が考えられるでしょうか

回答No.2

mt2015 · ベストアンサー

Activeは余計でしたね、
Cells.SpecialCells(xlLastCell).Row
Cells.SpecialCells(xlLastCell).Column

お礼

御回答有難う御座いました。
期待する値がちゃんと取れました。

回答No.3

imogasi

私は
Sub test01()
lr = Range("A1048576").End(xlUp).Row
MsgBox lr
rc = Range("XFD2").End(xlToLeft).Column
MsgBox rc
End Sub
でやってます。
欠点もありますが、ほとんどの場合有効でしょう。
範囲の底や右辺列が、凸凹の場合は、どうするか。
全列や全行について上記をやって、最大値を採るか。
具体的な数字を使うのが野暮ったいなら
Sub test02()
MsgBox Rows.Count
MsgBox Columns.Count
End Sub
を使って
Sub test03()
MsgBox Range("A" & Rows.Count).End(xlUp).Row
MsgBox Cells(2, Columns.Count).End(xlToLeft).Column
End Sub
ーー
普通はエクセルの表はCurrentRegionで捉えられるもの(行・列を）使うことを予想しているように想像する。

お礼

御回答有難う御座います。
質問文にもありますが、最終行から特定する方法だと
その凹凸や１行目が空白だった場合に対応出来ないと思います。
また例は例であって今回のデータが毎回１行目空白と言う訳ではなく、
１列目がＭＡＸ値よりも足りない事も想定されます。
全要素数を確認するのも考えましたが１万行くる可能性もあったので
他に手法が無いか質問した次第です。

回答No.1

mt2015

シート上でCtrl+Endをやってみてください。
使用範囲の右下が選択されます。
同じことをVBAでやると最終行と列はこうなります。

ActiveCell.SpecialCells(xlLastCell).Row
ActiveCell.SpecialCells(xlLastCell).Column