EXCEL VBA RangeオブジェクトResizeプロパティ（行数・列数のサイズ移動・セル範囲のサイズ変更）

EXCEL VBA RangeオブジェクトResizeプロパティ（行数・列数のサイズ移動・セル範囲のサイズ変更）

'
Sub Resize00A() 'Resizeの使用例（サンプル）
 
    Range("A1").Resize(2, 2).Select
    
    'セル[A1]を起点に縦２×横２を選択
    
End Sub
'

'
Sub Resize00B() 'Resize+Offsetの使用例（サンプル）
 
    Range("A1").Offset(1, 0).Resize(5, 5).Select
    
    'セル[A1]を起点にOffset(1,0)でA2へA2を起点に縦5×横5を選択
    
End Sub
'

Sub Resize00C() 'Resize+Offsetの使用例（サンプル）
 
    Range("A1").Offset(0, 1).Resize(10, 3).Select 'セル[A1]に移動
    
    'セル[A1]を起点にOffset(0,1)でB1へB1を起点に縦10×横3を選択
    
End Sub
'

'
Sub Resize00D() 'Resizeの使用例（サンプル）
 
    Range("A1:D4").Resize(2).Select
    
    'セル[A1:D4]を起点に2行が選択さました。
    
 
End Sub
'

'
Sub Resize00E() 'Resizeの使用例（サンプル）
 
    Range("A1:D4").Resize(, 1).Select
    
    'セル[A1:D4]を起点に１列目が選択さました。
    
 
End Sub
'

EXCEL VBA Resizeプロパティ 見出し行を除いてデータのセル範囲を別シートにコピーする。

'
''******** AKIRA55.COM ******* https://akira55.com/resize/
'
Sub Resize01()  'Resize+CurrentRegion 見出し以外のデータを別シートに転記します。

    Dim ws01, ws02 As Worksheet
    Dim lRow As Long

    Set ws01 = Worksheets("社員情報")  'ワークシート「社員情報」を設定
    Set ws02 = Worksheets("複写データ") 'ワークシート「複写データ」
    
    ws02.Cells.ClearContents  '転記先のワークシート「複写データ」をクリアーします。
    
    With ws01.Range("A1").CurrentRegion  'ワークシート「社員情報」の表全体を参照する。
        .Offset(1).Resize(.Rows.Count - 1).Copy  '1行目の見出し行を除いて、表の最終行までのコピーする。
    End With
    
    ws02.Range("A1").PasteSpecial xlPasteValues 'ワークシート「複写データ」に見出し行を除いて全てのデータを貼り付けます。

End Sub
'

EXCEL VBA Resizeプロパティ 検索値を入力して該当するデータに対して範囲を広げて、別シートに複写（コピー）します。

'
''******** AKIRA55.COM ******* https://akira55.com/resize/
'
Sub Resize02()  'Resize+Match関数で該当したのデータを別シートに転記します。

    Dim ws01, ws02 As Worksheet
    Dim L, lRow, mRow, xRow, NameNo As Long

    Set ws01 = Worksheets("社員情報")  'ワークシート「社員情報」を設定
    Set ws02 = Worksheets("複写データ") 'ワークシート「複写データ」を設定
        
    lRow = ws01.Cells(Rows.Count, "A").End(xlUp).Row 'ワークシート「社員情報」A列の最終行を取得します。
    
    Do
        xRow = ws02.Cells(Rows.Count, "A").End(xlUp).Row 'ワークシート「複写データ」A列の最終行を取得します。
        
        NameNo = Application.InputBox(Prompt:="社員番号を数値で入力してください！", Title:="社員情報", Type:=1)
        '選択する社員番号を数値で入力します。
        
        mRow = 0
        On Error Resume Next  'エラー回避（Match関数の場合は、該当データがないとエラーが発生するので設定する）
                mRow = WorksheetFunction.Match(NameNo, ws01.Range("A2:A" & lRow), 0) + 1
                'InputBox関数で入力した社員番号がワークシート「社員情報」のA列「社員番号」にあるか検索します。
                '該当する社員番号が有る場合は、行番号を返します。ない場合は、そのままゼロを返します。
        On Error GoTo 0  'エラー発生した場合もそのまま続行
            
        If mRow = 0 Then
                MsgBox "入力した社員番号のデーターが有りませんでした。" '該当データが無い場合
            Else
                ws01.Range("A1").Offset(mRow - 1).Resize(, 6).Copy
                '該当した社員番号（行番号）からResizeでF列（６）まで選択範囲を広めて、該当列をコピーします。
                
                ws02.Cells(xRow + 1, "A").PasteSpecial xlPasteValues
                'ワークシート「複写データ」へ該当データが貼り付けられます。
                
        End If
    
    Loop While NameNo <> 9999 ''社員番号を9999入力したら終了する。社員番号9999以外は繰り返す。
    
End Sub
'