マクロ 値の転記 再度

質問

マクロ　値の転記　再度

昨日はkyboさんに解答を頂き大変助かりました。
ありがとうございました。

教えて頂いたコードを別のマクロでも活用しよう思ったのですが
どのように改変していけばいいのかまた悩んでいます。
度々で申し訳ありませんが、どなたか宜しくお願い致します。

やりたいこと
転記元のBに0以外の数字が入っている場合、転記先のA列に
同じ値を常に5回転記させたい。
"あ"を5回転記→1行あける→"う"を5回転記→(続く・・・)

★Sheet1　転記先（7行目から転記したい）
　　Ａ
-------------------
7　あ
8　あ
9　あ
10　あ
11　あ
--------------------
12　空行
--------------------
13　う
14　う
15　う
16　う
17　う
--------------------
18　空行
--------------------
19　以下　5つの纏まりの枠が300行位まで続く

★Sheet2　転記元（5行目からデータがある）
　　Ａ　　　　Ｂ
--------------------
5　あ
6　あ
7　あ計　　100
--------------------
8　空行
--------------------
9　い
10　い
11　い
12　い計　　0
--------------------
13　空行
--------------------
14　う
15　う
16　う
17　う計　　500
--------------------
18　空行
19　（以下、続く）

Sub テスト()
Dim i As Long
'転記元のデータ開始行は5行目
For i = 5 To 300
　'転記元のB列が0以外
　If Worksheets("転記元").Cells(i, "B") <> 0 Then
　　　Worksheets("転記先").Cells((i - 1) * 5 + 1, "A").Resize(5) _
= Worksheets("転記元").Cells(i, "A")
　End If
Next i
End Sub

回答No.2

mu2011 · ベストアンサー

安易に教えて頂いたコードを理解せず、全く仕様の違う要件に同じコードで適用する事が問題です。
前回の仕様と今回の仕様の違いを認識することから行って下さい。
ヒント：(1)転記開始行が異なるので「ｉ」は共有できない、(2)転記先の開始は７行目→１３行目→１９行と改行幅は「６」という事です。

お礼

>安易に教えて頂いたコードを理解せず～
仰るとおりですね。
頂いたヒントを元にもう少し奮闘してみます。
ありがとうございました。