【最大10000ポイント】当たる!!質問投稿キャンペーン!

マクロ初心者です。

各シートの A1:L37 の範囲を

「まとめ」という名前のシートに上から順に貼り付けたいです。
シートは200シート程あります。

似たような質問(以下)をネット上で見つけ、
範囲をちょっと変えて試しに2シート分実行してみたのですが
-------------------------------------------------------
Sub sample()
Dim ws As Worksheet, i As Long
Cells.ClearContents
With Application
.ScreenUpdating = False
For Each ws In Worksheets
If ws.Name <> "まとめ" Then
ws.Range("A1:K37").Copy
Cells(Rows.Count, 1).End(xlUp).Offset(i).PasteSpecial _
Paste:=xlPasteValues
i = 1
End If
Next
.ScreenUpdating = False
.CutCopyMode = False
End With
End Sub
-------------------------------------------------------------------

3行目から2シート目の貼り付けが上書きされてしまいました。。。


どのように構文を直したら上手くいくでしょうか???

お手数ですがご教授いただけたら嬉しいですm(__)m
何卒、宜しくお願いします。

A 回答 (1件)

見た感じ、次の条件さえ満たしていれば、問題なく動きそうですけど、何がダメなのでしょうか?



【正しく動く条件】
①「まとめ」シートがアクティブな状態でマクロを起動すること
②「まとめ」以外のシートは、A列が空白でないこと(最終行以降は空白でも可)
    • good
    • 0
この回答へのお礼

ママチャリ様

ありがとうございます!!動きました!!(TT)

初心者すぎてすみません、、、
ご指摘の通り、空白にしてしまっていたから上手く行かなかったみたいです。


本当にありがとうございます!!
大変助かりました!!

お礼日時:2018/08/06 15:26

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング