ワークシートを別のものにコピーしてフォーマット（色）を保存する

Question

ワークシートの内容を特殊なペーストを使用してフォーマット（カラー）する方法を知りたい。

私のコード：このコードで

Application.Interactive = False 
btVar = Sheets.Count 
Worksheets("sheets1").copy after:=Worksheets(("sheetsB" & btVar)) 
btVar = btVar + 1 
ActiveSheet.Name = ("sheetsB" & btVar) 

新しいシート"sheetsB" & btVarは"sheets1"のコピーですが、フォーマット（いくつかのセルの色を）conservigなし。

誰でも教えてください。

Answer 1

以下のコードは "Sheet1"をコピーして最後に貼り付け、このブックの "Sheet" &枚の名前に変更します。

例：あなたは3枚あるとしましょう、あなたは「シート1」をコピーし、それが今であるため（（あなたの最後のシートの名前は何でもOT）「シート3」の後に置かれ、それが「シート4」に名前を変更しています枚数は4枚です）。

コード

Option Explicit 

Sub CopySheet_andFormat() 

Application.Interactive = False 
Worksheets("Sheet1").Copy After:=Worksheets(ThisWorkbook.Worksheets.Count) 
ActiveSheet.Name = "Sheets" & ThisWorkbook.Worksheets.Count 

End Sub