Excel VBA Resizeで既存セル範囲のサイズを動的に行や列を変更する方法

以下のようなシーンで利用されます。

・動的にセル範囲を変更する必要がある。

・データの追加や削除に応じて範囲を調整する。

・繰り返し処理で範囲を変更しながらセルにデータを入力する。

Option Explicit

Sub ResizeExample()
    Dim rng As Range
    Set rng = Range("A1:B2") ' 初期範囲はA1:B2

    ' 範囲を3行4列に変更
    Set rng = rng.Resize(3, 4)
    
    ' 新しい範囲に値を設定
    rng.Value = "Resized"
End Sub

動的に範囲を調整する例
この例では、開始セル"A1"を基準に5行3列の範囲が動的に設定され、その範囲に「Dynamic」という値が設定されます。

Option Explicit

Sub DynamicResizeExample()
    Dim startCell As Range
    Dim numberOfRows As Long
    Dim numberOfColumns As Long
    
    Set startCell = Range("A1") ' 開始セル
    
    numberOfRows = 5 ' 動的に設定された行数
    numberOfColumns = 3 ' 動的に設定された列数
    
    ' 開始セルを基準に範囲を調整
    startCell.Resize(numberOfRows, numberOfColumns).Value = "Dynamic"
End Sub