ワークシートの最終行、最終列を取得するのはけっこう難しい！

excelvba

f:id:shikaku:20130305002230p:plain

UsedRangeだけではNGなケースも。

<S6> 書式付きセルを除外する （UsedRange）

With ActiveSheet.UsedRange
    MaxRow = .Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
    MaxCol = .Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
End With


ネタ元