Resizeプロパティでセル範囲をサイズ変更

こんにちは、じゅんぱ店長（@junpa33）です。

今回は、いとも容易くセルの指定範囲を変更させることが出来るプロパティについてです。

RangeオブジェクトのResizeプロパティについて説明します。

セルの範囲選択の記事一覧

2022年6月4日Range VS Cells ！VBAで使えるのはどっち 2022年6月18日セルの範囲選択と設定は14のツールで対応する 2022年5月5日Rowsプロパティの働きと関連のメソッド 2022年6月8日Columnsプロパティの列指定で参照する 2022年6月11日EntireRowとRowプロパティの違い 2022年6月13日EntireColumnとColumnの使い方 2020年11月19日Offsetプロパティは指定範囲を移動させる 2022年6月5日Resizeプロパティでセル範囲をサイズ変更 2022年4月30日CurrentRegionは連続データをまとめて掴む 2022年6月6日UnionとRangeの一括選択の働きを比較 2022年4月28日SpecialCellsメソッドはセル検索し選択する 2022年5月30日UsedRangeプロパティの使い方のコツ 2022年6月15日Endプロパティで上下左右の最終セルを取得 2020年12月5日データ入力済セルの最終行番号を取得する

Resizeプロパティの選択範囲カンタン設定方法

Resizeプロパティは、対象のセル範囲の行数と列数を変更した新しいセル範囲を、Rangeオブジェクトとして取得することが出来ます。

元のセル範囲を新しいセル範囲に変更する方法として、

「元のセル範囲の左上端のセル」を基準セルとして、新たに行数と列数をカウントします。

したがって、「元のセル範囲の左上端のセル」は基準位置として場所固定されますので、

動かすことが出来ません。

この場所固定された「元のセル範囲の左上端のセル」を移動させる方法としては、Offsetプロパティを併用する方法があります。

Resizeプロパティの構文

Resizeプロパティの記述方法としてはこのようになります。

基本的な使い方

Resizeプロパティの基本的な使い方としては、次のような簡単なコードでセルの選択範囲を変更させることが可能です。

セルC3を選択します。背景色を黄色にしておきます。

Resizeサンプル1

Sub Resizeサンプル1()
　Range("C3").Select
　Range("C3").Interior.Color = RGB(255, 255, 0)
End Sub

セル範囲を行数３、列数５でリサイズする

Resizeサンプル2

Sub Resizeサンプル2()
　Range("C3").Select
　Selection.Resize(3, 5).Select
End Sub

基準セルC3からの行数と列数をカウントして範囲が設定されました。

このResizeプロパティだけでは、基準セルを動かすことは出来ません。

そこで、Offsetプロパティを利用して基準セルそのものを移動させることにします。これによって、シート上のどこにでもセルの選択範囲を動かせるようになります。

基準セルをOffsetで移動させ、セル範囲を行数３、列数５でリサイズする

Resizeサンプル3

Sub Resizeサンプル3()
　Range("C3").Select
　Selection.Offset(4, -1).Resize(3, 5).Select
End Sub

基準セルの位置が、OffsetプロパティによってセルC3からセルB7に移動しました。

ちなみに、次のコードでも同じ結果が得られます。（ResizeとOffsetの記述位置を逆にしました）

Sub Resizeサンプル4()
　Range("C3").Select
　Selection.Resize(3, 5).Offset(4, -1).Select
End Sub

Resizeプロパティ　カンタン実用例

雑誌の発売日リストから、ピッキングしたい雑誌を雑誌コードを使って、その関係するデータを抜き取るVBAコードです。

最もシンプルなタイプのコードですが、発売日リストの行数ボリュームが可変で有ったり、雑誌コードの抽出方法を関数やメソッドを使った方法に変更したりとか、データボリューム次第でVBAコード組み立てを変更する必要はあると思います。

雑誌コードからそのデータ行を抽出し表示します。

雑誌コードからデータ行を抽出

Resizeサンプル5

Sub Resizeサンプル5()
    Dim i As Long
        For i = 1 To 10
            If Cells(i, 5) = Cells(17, 4).Value Then
                Cells(i, 5).Offset(, -3).Resize(, 9).Select
                Range("B19:J19") = Selection.Value
            End If
        Next i
End Sub

雑誌コードのデータ列からOffsetプロパティで左へ3列ずらし、データ行の全9列をResizeで範囲選択しています。

MEMO

Offsetプロパティの使い方についてはこの記事を参考にしてください。

2020年11月19日 Offsetプロパティは指定範囲を移動させる

Resizeプロパティ　まとめ

Resizeプロパティは簡単に利用することが出来ますので、ぜひ使っていきましょう。

Offsetプロパティとセットで覚えておきましょう。

エクセルVBAを独習するのに参考書は欠かせません。 参考書選びは自分に合った「相棒」にできるものを選んでいきたいです。

2021年3月18日 エクセルVBAを独学で習得する！ために大切な7つのポイントを解説します

エクセルVBAの独習には動画学習という方法もあります。 目と耳両方を使って学習することでさらに勉強効率を上げることもできます。

2021年4月4日 エクセルVBA初級者がUdemyで動画学習する講座おすすめ５選と無料講座の上手な使い方。

今回の記事はここまでです。   最後までご覧いただき有難うございました。

　セルの操作の記事一覧

セルの背景色を2クリックで他範囲にも展開できるマクロデータの並び替え VBA新旧のSortを実データで実証「セルの保護」の設定VBAを最速理解「グラデーションの塗りつぶし」のセルを設定する「塗りつぶしの網掛け」VBAを最速理解「塗りつぶし」背景色をVBAで記述する「罫線」のVBAを最速理解「フォント」の操作を最速理解する エクセルVBA「配置」を最速理解する エクセルVBA「表示形式」をVBAコード的に最速理解するセルの範囲選択と設定は14のツールで対応するEndプロパティで上下左右の最終セルを取得EntireColumnとColumnの使い方EntireRowとRowプロパティの違いColumnsプロパティの列指定で参照するUnionとRangeの一括選択の働きを比較Resizeプロパティでセル範囲をサイズ変更Range VS Cells ！VBAで使えるのはどっちUsedRangeプロパティの使い方のコツBordersの/位置/線種/太さ/色/と<外枠だけの罫線>の設置

「エクセルVBA最速理解」の記事一覧を開く