VBAでのループが読み込まれない

Question

実現したいこと

各シートの指定セル(例:A3)をコピーし、『集計』シートにループで貼り付けたい。

前提

お世話になります。VBA初心者です。
現在VBAを使ってコピペの自動化しようとしており、下記For Next文を書きました。

ステップインで確認したところ、Paste処理の部分が読み込まれず、また原因が分からず困っております。

該当のソースコード

Sub SheetRoop()

Dim i As Long
Dim n As Long

For i = 1 To Sheets.Count
    Sheets(i).Range("A3").Copy
    For n = 2 To 3
    '↓下記の一文が読み込まれない
        Sheets(4).Cells(n, 2).PasteSpecial
    Next n
 n = n + 1
Next i

End Sub

解決方法をご存知の方がいらっしゃいましたら、教えていただけると幸いです。
よろしくお願いいたします。

Comments

[torisan]

>Paste処理の部分が読み込まれず
これはどういう意味でしょうか？処理がこの行を通らない？通っても貼り付かない？
また、処理を動かした時の現状のエクセルと、どうなって欲しいかの理想系のエクセル、あとシートの構成(Sheet1,Sheet2,Sheet3,集計 シートの４つ 等)があると良いと思います。

[hanabi.]

言葉足らずで申し訳ございませんでした。
『処理がこの行を通らない』の意味です。

Answer 1

変数n の使い方が間違っており、思ったように動かないと思います。
変数n は、for文の変数で、値がリセットされてしまい、常に上書きしています。
さらに悪いことに、最後の出力シートもコピペしているので、推測で、空白が貼り付けて、結果は、何も出力されていないと思います。

サンプルプログラムの様に思えますが、単純に値の貼り付けであれば、Copyメソッドは使う必要はなく、
下の様なシンプルなコードで対応が可能です。

Sub SheetRoop()
    
    Dim i As Long

    For i = 1 To Sheets.Count - 1
        Sheets(Sheets.Count).Cells(2, 2) = Sheets(Sheets.Count).Cells(2, 2) + Sheets(i).Range("A3")
    Next i
    
End Sub

Answer 2

変数「n」の使い方が美味くないです。
ステップ実行しながら、ローカルウィンドウで、
変数「n」の中の値がどのように変化しているか追ってみてください。

プロパティ、メソッドの探り方 マクロ記録とＦ１のHelpを使う

サンプル

Sub SheetRoop2()

    Dim i As Long
    Dim n As Long

    n = 2
    For i = 1 To 3
        Sheets(i).Range("A3").Copy Sheets(4).Cells(n, 2).Resize(2)
        n = n + 2
    Next
End Sub

左から4番目のシートにデータを転記していくなら、
見て行くのは、
1番目から3番目ですかね？
ずばり書いちゃわないと、
命令された方（エクセルVBAの場合はエクセル君）は
律儀に何も考えずに作業しちゃうので、
意図した結果を返さないかも？

Answer 3

シート1～3のA3セルを、シート4のB2・B3に貼る想定なのでしょうが貼る場所をB2・B3からズラすところが上手く動いておらず、ずっとB2・B3に上書きしているのだと思います。
（シート3のA3セルが空欄なら空欄で上書きされるので何も動いてないように見えるかと）

ブレークポイントやステップインで動作確認し直してみてください。

Sub SheetRoop()

Dim i As Long
Dim n As Long
m = 0

For i = 1 To Sheets.Count - 1
    Sheets(i).Range("A3").Copy

    For n = 2 To 3
    '↓下記の一文が読み込まれない
        Sheets(4).Cells(n + m, 2).PasteSpecial
    Next n

    m = m + 2
Next i

End Sub

Comments

[hanabi.]

皆様のいただいたコードを用いたところ、無事思い通りの機能を実現することができました。
ベストアンサーは一番早かった回答とさせていただきます。
皆様本当にありがとうございました。

Answer 4

また、単純に合計だけを求めたいのであれば、VBAは不要で、ワークシート関数で対応が可能です。
例えば、

=SUM(Sheet1:Sheet3!A3)

ワークシートの串刺し計算が、:演算子によって可能になります。