セル選択範囲の変更 Resize

 

構文
Range.Resize(RowSize, ColumnSize)

日本語訳
Rangeオブジェクト. Resize(変更後の行数, 変更後の列数)

 

基本的な使い方

Sub test()

 

    ’   選択範囲 A1から3行3列まで広げる
    Range("A1").Resize(3, 3).Select

 

End Sub

 

Sub test2()

 

    ’   選択範囲 A1から3行だけ広げる
    Range("A1").Resize(3).Select

 

End Sub

 

Sub test3()

 

    ’   選択範囲 A1から3列だけ広げる
    Range("A1").Resize(,3).Select

 

End Sub

 

OffsetとResizeの組み合わせ

 

見出し以外データを別シートへ転記

Sub test4()

 

    With ActiveSheet.Range("A2").CurrentRegion
        .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Copy _
            Destination:=Sheets("Sheet2").Range("A1")
    End With
End Sub

 

実行結果

 

 

実務では、フィルターを使ってデータを絞り込み、その結果を隣シートへ転記する際、よく使われます。ぜひOffsetとセットでマスターしましょう。

 

 

 

 

関連記事 

 

─ VBA セルの選択

─ VBA オートフィルターメソッド

─  VBA 可視セルのコピペ

─ VBA セルの値の取得

─ VBA セルの値のコピー・貼り付け

─ VBA セルのクリア

─ VBA セルの削除

─  VBA セルのアドレス取得

─  VBA セルの移動 Offsetプロパティ

 

 

 

 

 

 

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る