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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 配列（宣言・要素数の変更について）

配列の宣言【書式】※ 配列の宣言＜Type 型の静的配列（固定長配列）の宣言 …

: メッセージボックスを表示（MsgBox関数）

MsgBox関数【書式】 result = MsgBox ( Prompt [ …

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

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

: 文字列：指定した文字コードに対応する文字を返す（Chr 関数）

Chr 関数の使い方【書式】 result = Chr ( code ) 引数 …

: 変数のデータ型・宣言（Dim ステートメント）

変数の宣言一般的な方法【書式】 Dim varname [ As type, …

: 文字列：文字列を検索してその最初の文字位置を返す（InStr 関数,InStrB 関数）

InStr 関数・InStrB 関数の使い方【書式】 result = { I …

: 文字列：文字列の一部を別の文字列で置換（Replace 関数）

Replace 関数の使い方【書式】 result = Replace ( s …

: 式を評価し、結果（真・偽）に応じた式・値を返す（IIf 関数）

IIf 関数の使い方 IIf（アイイフ）関数は、式を評価してその結果（真・偽） …

: 日付時刻：日付・時刻の間隔を取得（ DateDiff 関数）

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

: 文字列：文字列の空白を削除（Trim 関数, LTrim関数, RTrim関数）

Trim 関数・LTrim 関数・RTrim 関数の使い方【書式】＜先頭と末 …

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