VBA シートのコピー方法

Question

前提・実現したいこと

エクセルのあるシートのコピーを別ブックへとコピーしたい
しかしコピーするシートにはworksheet changeイベントが既に記入してあり
コピーする先へは、イベントを引き継ぎたくない。

該当のソースコード

Workbooks("Book1").Worksheets("Sheet1").Activate
ActiveSheet.Copy Before:=Workbooks("Book2").Sheets(1)

試したこと

worksheets　pastespecialでのコピーを試しましたが
コピーするシートにはセルの結合があり、書式や値のそのままのコピーだとうまくいかず
なにかイベントを引き継がない方法等あれば教えて頂きたいです。

Answer 1

下記でどうでしょう。

Sub Sample1()
    Dim newSheet As Worksheet
    Set newSheet = Workbooks("Book2").Sheets.Add(Before:=Workbooks("Book2").Sheets(1))
    Workbooks("Book1").Sheets("Sheet1").Cells.Copy Destination:=newSheet.Cells
End Sub

Comments

[miyabin09]

ありがとうございます。
Workbooks("Book1").Sheets("Sheet1").Cells.Copy　を知りませんでした。
これで結合セルも書式もコピーできるのですね　書式や値を何度もコピーするマクロが必要かと思っていましたが、この方がだいぶ楽です。ありがとうございました。