ねこになりたい

おふとんと朝の別れをするのが辛い人向けです。正論で殴らず見守ってあげてください。

Resize

概要

 
Rangeオブジェクト.Resize(行数, 列数)
参照するセル範囲を再取得する。

サンプル

C2セルを基準に、タイトルを除いて表のセルを選択する。

f:id:Arpino:20200419162121p:plain

' 表全体をOffsetで1行ずらす → 一番下をずらした分だけResizeで1行上にあげる
With Range("B3").CurrentRegion 
.Offset(1).Resize(.Rows.Count - 1).Select
End With

実行結果

f:id:Arpino:20200419163113p:plain