0

マクロのコード内容を変更することについて教えてください。 下記のコードでコピーされる範囲を変更したいのですがどう変更すればいいのかが分かりません。
変更する範囲は、シート実験１～実験３の各（B5:N100)の内容がシート全部の（B5:N1000)にうつされるように範囲を変更したいです。コードの内容はそのままでセル範囲だけを変更したいのです。
お手数ですが、コード内容がお分かりになられましたらぜひ教えてください。
宜しくお願いいたします。

Sub MyMacro1()
Dim sh(3) As Worksheet
Dim rng(1) As Range
Dim lastRow As Long
Dim titleRow As Long
Dim i As Long
'OSに制御を戻す
DoEvents
'画面更新を停止する
Application.ScreenUpdating = False
'シートを変数に設定する
Set sh(0) = Worksheets("全部")
Set sh(1) = Worksheets("実験１")
Set sh(2) = Worksheets("実験２")
Set sh(3) = Worksheets("実験３")
'タイトル行番号と最終セルの一つ下のセルを取得
With sh(0)
titleRow = .Cells(1, 4).End(xlDown).Row
Set rng(0) = .Cells(Rows.Count, 4).End(xlUp).Offset(1)
End With
'各シートのデータをシート"全部"に転記する
For i = 1 To 3
With sh(i)
'最終行の取得
lastRow = .Cells(Rows.Count, 4).End(xlUp).Row
'実行判定
If lastRow > titleRow Then
'D列タイトル行：G列最終行を変数に設定
Set rng(1) = .Range(.Cells(titleRow + 1, 4), _
.Cells(Rows.Count, 4).End(xlUp).Offset(, 3))
'全部シートの最終セルのサイズを調整し、パートシートの値を出力する
rng(0).Resize(rng(1).Rows.Count, 4).Value = rng(1).Value
'パートシートの値をクリアする
rng(1).Value = ""
'全部シートの最終行を再取得する
Set rng(0) = sh(0).Cells(Rows.Count, 4).End(xlUp).Offset(1)
End If
End With
Next i
'画面更新を行うようにする
Application.ScreenUpdating = True
Erase sh
Erase rng
End Sub

質問者が選んだベストソリューション

Yahoo!知恵袋 4767日前