セル範囲の縮小と拡張

特定のセルを基準にして○行分・○列分のセルを参照したり、あるセル範囲を縮小・拡張して参照することができます。
セル範囲を縮小・拡張して参照するには、RangeオブジェクトのResizeプロパティを使用します。

セル範囲を縮小・拡張して参照する

★　セル範囲を縮小して参照する。

Sub サンプル5395_1()
 
    Range("A2").Resize(4, 2).Select
      
End Sub

•　Range("A2").Resize(4, 2).Select
　’セルA2を基準にして、４行、２列の範囲を参照します。

●マクロの実行前

●マクロの実行結果
セルA2を含んで、４行、２列の範囲を選択します。

表の項目以外のセルを選択する

★　表の項目以外のセルを選択する

Sub サンプル5395_2()

    Dim CW As Range
    Set CW = Range("A2").CurrentRegion
 
    CW.Offset(1, 1).Resize(CW.Rows.Count - 1, _
    CW.Columns.Count - 1).Select
          
End Sub

•　Dim CW As Range
　’変数CWを宣言します。
•　Set CW = Range("A2").CurrentRegion
　’セルA2を基準とした表を選択し、変数CWへ収納します。
•　CW.Offset(1, 1).Resize(CW.Rows.Count - 1, _
CW.Columns.Count - 1).Select
　’セル範囲を１行下で１列右へずらします。
次にセル範囲より１行少なく、１列少ない範囲を選択します

●マクロの実行結果

以上で「セル範囲の縮小と拡張」の説明を終わります。