エクセル 毎月分のデータを年間シートに移植するマクロ

質問

エクセル　毎月分のデータを年間シートに移植するマクロ

いつもお世話になっております。
こちらで毎月のデータをコピーして、年間シートの最終行に貼り付けるマクロを
以下のとおり教えていただきました。
今、３シート分になっているのですが、これを1-1を1-4だけのマクロにする場合、
Set Ws(3) = Worksheets("2-1")
Set Ws(4) = Worksheets("2-3")
Set Ws(5) = Worksheets("3-1")
Set Ws(6) = Worksheets("3-2")
この↑部分を削るだけではだめなのでしょうか？

試してみたところ、オブジェクトの変数またはwithブロック変数が設定されていませんとの
エラーが出てしまいました。

下記マクロを1-1→1-4だけにするマクロの修正を教えていただきたくお願いいたします。

シート
1-1　毎月決まった項目のデータが入ります。
↓
1-4　1-1の月データを一年分貼付

2-1　毎月決まった項目のデータが入ります。
↓
2-3　2-1の月データを一年分貼付

3-1　毎月決まった項目のデータが入ります。
↓
3-2　3-1の月データを一年分貼付

********************************************************************************
Sub Harituke()

Dim k As Integer
Dim Rng As Range
Dim Ws(6) As Worksheet
Set Ws(1) = Worksheets("1-1")
Set Ws(2) = Worksheets("1-4")
Set Ws(3) = Worksheets("2-1")
Set Ws(4) = Worksheets("2-3")
Set Ws(5) = Worksheets("3-1")
Set Ws(6) = Worksheets("3-2")

For k = 1 To 5 Step 2
　　Set Rng = Ws(k).Cells(1, 1).CurrentRegion
　　Set Rng = Rng.Offset(1, 0).Resize(Rng.Rows.Count - 1, Rng.Columns.Count)
　　Rng.Copy Ws(k + 1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Next k

For k = 1 To 6
　　Set Ws(k) = Nothing
Next k
Set Rng = Nothing

End Sub

回答No.1

mar00 · ベストアンサー

Set Ws(3) = Worksheets("2-1")
Set Ws(4) = Worksheets("2-3")
Set Ws(5) = Worksheets("3-1")
Set Ws(6) = Worksheets("3-2")
を消して

For k = 1 To 5 Step 2
を
For k = 1 To 1 Step 2
にするか
For k = 1 To 5 Step 2
　　Set Rng = Ws(k).Cells(1, 1).CurrentRegion
　　Set Rng = Rng.Offset(1, 0).Resize(Rng.Rows.Count - 1, Rng.Columns.Count)
　　Rng.Copy Ws(k + 1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Next k
を
　　Set Rng = Ws(1).Cells(1, 1).CurrentRegion
　　Set Rng = Rng.Offset(1, 0).Resize(Rng.Rows.Count - 1, Rng.Columns.Count)
　　Rng.Copy Ws(2).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
にして

For k = 1 To 6
を
For k = 1 To 2
にすればよいのではないでしょうか。

お礼

できました。
ありがとうございました。