Excel VBA 複数シートにペーストされてしまいます

Question

前提・実現したいこと

集計データをフォーマットに転記する簡単な処理です。

フォーマットは複数シートの構成で転記先は１番目のシートになります。

が、なぜか転記すると２番目のシートも同時選択されて転記されてしまいます。

ソースを一行ごと確かめましたが
転記する直前までシートは１番目しか選択されていません。
転記のプロセスを行うと２番目のシートも同時選択されてしまいます。

今までこのような状況に遭遇したことがなく
なぜなのか全くわかりません。
アドバイスいただければ幸いです。

発生している問題・エラーメッセージ

１枚のシートに転記しようとすると複数シートにコピーされてしまう。

エラーメッセージ

excel VBA

wbRawData.Worksheets("xxxxxxxx").Range("A1:D19").Copy
wbReport.Worksheets("yyyyyyyy").Activate 'ここまでは確実に1シート選択
Range("E3").PasteSpecial Paste:=xlPasteValues　'これを行うと2枚目も同時選択されている。

With wbReport.Worksheets("yyyyyyyy")
        .Activate
        .Range("E3").PasteSpecial Paste:=xlPasteValues
        .その他書式編集
end with

最初はこのように記述していましたが上の現象が起きたのでActivateのみ外に出してみたりもしました。（変わらないとは思いつつ）

### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[meg_]

「'これを行うと2枚目も同時選択されている。」の部分で選択されているのはどのブックのどのシートのことですか？

[退会済みユーザー]

言葉足らずですみません。

wbReport.Worksheets("yyyyyyyy")がコピー先のシートで、同時に選択されてしまうのは
このwbReportの"yyyyyyyy"の右隣のシートです。
１行前のActivateで処理を止めて確認しましたが
そこまでは確実に"yyyyyyyy"のシートしか選択されていないのに
ペーストを実行して確認すると2シートがグループ化されているのです。
どうしてなのか全くわからないです。

Answer 1

自分の環境と提示のコピーペーストのみでは再現しませんでした。

とりあえずコードの改善点を挙げておきます。

wbRawData.Worksheets("xxxxxxxx").Range("A1:D19").Copy
wbReport.Worksheets("yyyyyyyy").Select 'Activateから変更
Range("E3").PasteSpecial Paste:=xlPasteValues

Activateは厳密に言うとシート（セル）の選択とちょっと違って、複数選択状態にあるときはカーソルを変更するような操作です。
セルでいえば範囲選択状態で白抜きのセルがそれですし、シートでいえばちょっと見づらいのですがシート名がハイライトされている状態です。
なのでこれをSelectにしてやると、とりあえずは複数選択状態が解除され1つのシート（セル）が選択されます。

---

再現しない点がちょっと気になりますね…例えば別のマクロが動いていたりしませんか？
デバッグでステップ実行されてるので無いとは思いますが念のため確認してみてください。

Comments

[退会済みユーザー]

アドバイスありがとうございます。なるほどもしかすると「Activate」に問題があるのかもしれません。今ちょっと検証できる環境にいないのですが少し勉強してみます。ちなみに別のマクロが動いている等はなかったです。コピーの方法やブックの構造に何か問題があるのかと謎でしたが勉強不足の部分があるのだなと気づくことができました。ありがとうございました。

Answer 2

試してみましたが、コードには問題なさそうです。（Windows8、Excel2013）

考えられるのは、コピー先のエクセルブックが複数シートを選択された状態で保存されていた、でしょうか。

Comments

[退会済みユーザー]

検証いただきありがとうございます。コピー先のブックは定型フォーマットをコピーして新規作成しています。定型フォーマットのブックは何度も確認しましたが複数シートを選択されていはいません。実際コピーを実行する１行前まで複数シートの選択などされていないので…。本当に謎です。

Answer 3

以下のように１行にまとめると良いのではないでしょうか。

wbRawData.Worksheets("xxxxxxxx").Range("A1:D19").Copy _
    Destination:=wbReport.Worksheets("yyyyyyyy").Range("E3")

Comments

[退会済みユーザー]

ありがとうございます。
アドバイスいただいたコードで望ましい結果を得ることができました。

しかしながらなぜ勝手にシートがグループ化されてしまうのかは全くわかりません。
後学のためにぜひとも謎を究明したいところです。