ray88’s diary

お仕事で困ったとき用の自分用の覚書

VBA Resizeプロパティ

■指定セル範囲を元にサイズを拡張する

基準セル範囲.Resize(行数, 列数)

■サンプルコード①
セルB3を基準に「1行・4列分」だけ拡張したセル範囲を選択する

Sub リサイズ_1()
    Sheets(1).Range("B3").Resize(1, 4).Select
End Sub

f:id:ray88:20220220183111p:plain
■サンプルコード②
セル範囲 B3:E3 を基準に,4行分だけ拡張したセル範囲を選択する。
※基準セルが単一セルではなくセル範囲の場合、Resizeプロパティの引数へ行数または列数のみ指定すると
 指定されなかった側の行数・列数は基準セルの範囲を保ったまま拡張する。
 表の1行や1列を基準にし、そこから複数行・列をまとめて選択さいたい場合に便利。

Sub リサイズ_2()
    Sheets(1).Range("B3:E3").Resize(4).Select
End Sub

f:id:ray88:20220220183554p:plain