Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

指定したセル範囲のサイズを変更（Resize プロパティ）

2017/11/07

Resize プロパティ

指定したセル範囲のサイズ（行数や列数）を変更します。

【書式】

object.Resize [ ( RowSize, ColumnSize ) ]

引数・戻り値

object ・・・対象となる Range オブジェクトを指定します。
RowSize ・・・変更後の行数を指定します。省略すると変更前の行数となります。
ColumnSize ・・・変更後の列数をしていします。省略すると変更前の列数となります。
戻り値・・・変更されたセル範囲（Range オブジェクト）

Resize プロパティ使用例

サンプルVBAソース 1

　
Sub Sample_Resize1()

    Dim wkst As Worksheet
    Dim myRng As Range
    
    Set wkst = Worksheets("Sheet2")
    
    With wkst
        
        Set myRng = .Range("B3:D8")
        myRng.Resize(1).Copy .Range("G3")
    
    End With

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

　

Sub Sample_Resize1()

Dim wkst As Worksheet

Dim myRng As Range

Set wkst = Worksheets("Sheet2")

With wkst

Set myRng = .Range("B3:D8")

myRng.Resize(1).Copy .Range("G3")

End With

End Sub

　

実行結果

サンプルVBAソース 2

　
Sub Sample_Resize2()

    Dim myRng As Range
    Worksheets("Sheet3").Activate
    Range("B3:D3").Select
    Set myRng = Selection.Resize(4, 2)
    myRng.Copy Range("G3")

End Sub

1

2

3

4

5

6

7

8

9

10

11

　

Sub Sample_Resize2()

Dim myRng As Range

Worksheets("Sheet3").Activate

Range("B3:D3").Select

Set myRng = Selection.Resize(4, 2)

myRng.Copy Range("G3")

End Sub

　

実行結果

- VBA基本 excel vba, Resize プロパティ, VBA基本, エクセル VBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: フォントサイズ（Size プロパティ・StandardFontSize プロパティ）

フォントサイズを取得・設定する（Size プロパティ） Size プロパティは、 …

: VBA の演算子（比較演算子）

比較演算子比較演算子による演算の結果は「真」の場合は「True」、「偽」の場合 …

: 文字列：文字列変数の値を右詰めまたは左詰めにする（RSet ステートメント・LSet ステートメント）

RSet ステートメント・LSet ステートメント【書式】＜ RSet ステ …

: フォント太字・斜体（Bold, Italic, FontStyle プロパティ）

太字の設定（Bold プロパティ） Bold プロパティは、フォントを太字にする …

: ショートカットメニュー（CommandBar オブジェクト）

ショートカットメニュー（コンテキストメニュー）右クリックで表示されるメニューの …

: 変数がEmpty 値かどうかをチェックする（ IsEmpty 関数）

IsEmpty 関数の使い方【書式】 result = IsEmpty ( e …

: xlFileFormat 列挙型

xlFileFormat 列挙型 Workbook.SaveAs メソッドの引 …

: 文字列：文字列を最後から検索してその最初の文字位置を返す（InStrRev 関数）

InStrRev 関数任意の文字列の中で、指定した文字列を最後から検索して、見 …

: 乱数ジェネレータを初期化 (乱数系列を再設定) する（Randomize ステートメント）

Randomize ステートメントの使い方 Rnd 関数を使用する前に使用しま …

: 配列の添字の最小値を「1」に設定する

Option Base ステートメントを使用する【書式】 Option Bas …

PREV: セルのデータを固定長形式で複数のセルに分割する（TextToColumns メソッド・Parse メソッド）
NEXT: VBA で正規表現を使う（RegExp オブジェクト）