最終行・最終列を取得

2019/09/04

'最終行・最終列を取得
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)

スポンサーリンク

スマホのみ下に表示