■指定セル範囲を元にサイズを拡張する
基準セル範囲.Resize(行数, 列数)
■サンプルコード①
セルB3を基準に「1行・4列分」だけ拡張したセル範囲を選択する
Sub リサイズ_1() Sheets(1).Range("B3").Resize(1, 4).Select End Sub
■サンプルコード②
セル範囲 B3:E3 を基準に,4行分だけ拡張したセル範囲を選択する。
※基準セルが単一セルではなくセル範囲の場合、Resizeプロパティの引数へ行数または列数のみ指定すると
指定されなかった側の行数・列数は基準セルの範囲を保ったまま拡張する。
表の1行や1列を基準にし、そこから複数行・列をまとめて選択さいたい場合に便利。
Sub リサイズ_2() Sheets(1).Range("B3:E3").Resize(4).Select End Sub