シート全体をコピーし、VBA内の別のシートにペーストを移す方法は？

Question

作業環境：エクセル2013

対象：

1. コピーシート全体
2. は、この新しいシートにコピーしたシートを貼り付け
3. 転置別のシートを作成します。

私が使用していたコードは以下の通りである：私はそれを実行したときしかし、私はエラーを得

Worksheets("Sheet4").Copy 
Worksheets("Master").PasteSpecial Transpose:=True 

アプリケーション定義またはオブジェクト定義のエラー

なぜ誰かが私を理解するのを助けることができますか？

Answer 1

たぶん、あなたは以下のようなコードの後：

Option Explicit 

Sub CreateAndCopyTran() 

Dim ws As Worksheet 

' create a new worksheet, and name it "Master" 
Set ws = ThisWorkbook.Worksheets.Add(after:=ThisWorkbook.Worksheets(1)) 
ws.Name = "Master" 

' copy the UsedRange and Transpose 
Worksheets("Sheet4").UsedRange.Copy 
ws.Range("A1").PasteSpecial xlPasteAll, Transpose:=True 

End Sub 

Answer 2

あなたはシート4のセルではなく、シート自体をコピーしたいので、あなたは、範囲/セルのコピーメソッドを呼び出す必要があります。

同様に、シートオブジェクトではなく、範囲オブジェクトに対してPasteSpecialメソッドを呼び出す必要があります。

次の例のように、これを試みることができる：新しいワークブックに、ではないクリップボードにシート

Sub test() 
    Worksheets("Sheet4").UsedRange.Copy 
    Worksheets("Master").Cells(1, 1).PasteSpecial Transpose:=True 
End Sub