最終行・最終列を取得

'最終行・最終列を取得
Dim MaxRowDB As Long, MaxColDB As Long
With Worksheets(2).UsedRange
MaxRowDB = .Find("*", , , , xlByRows, xlPrevious).Row
MaxColDB = .Find("*", , , , xlByColumns, xlPrevious).Column
End With

----- べんりあつめ。-----

.Findの理解用

.Find(①What, ②After, ③LookIn, ④LookAt, ⑤SearchOrder, ⑥SearchDirection, ⑦MatchCase, ⑧MatchByte, ⑨SearchFormat)
① What ⇒　"*" あらゆる文字を対象とするときにつかう。例えば、文字を指定するなら "りんご"
　　　　　　※この①のみ必須で、以外は省略可能
② After ⇒　指定したセルの次のセルからが検索対象。
③ LookIn ⇒　検索対象指定　（数式：xlFormulas）（値：xlValues）（コメント：xlComments ）
④ LookAt ⇒　検索条件　（完全一致：xlWhole）（部分一致：xlPart）
⑤ SearchOrder ⇒　検索方向（縦の行方向：xlByRows）（横の列方向：xlByColumns）
⑥ SearchDirection ⇒　検索前後（前方に検索：xlNext既定値)（後方に検索：xlPrevious)
⑦ MatchCase ⇒　大文字小文字区別（する：True)（しない：False)
⑧ MatchByte ⇒　半角全角字区別（する：True)（しない：False)
⑨ SearchFormat ⇒　書式検索（する：True)（しない：False)