複製工作表並保存格式（顏色）

-1

我想知道如何使用特殊粘貼將工作表的內容複製到另一個格式（顏色）之後。複製工作表並保存格式（顏色）

我的代碼：

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

與此代碼的新片"sheetsB" & btVar是"sheets1"，但沒有conservig格式（一些細胞的顏色）的副本。

任何人都可以幫助我嗎？

來源

2017-03-08 ChL

的可能的複製[Excel VBA中如何表所有格式設置和頁面設置複製（http://stackoverflow.com/questions/18794284/excel-vba-how-to -copy-sheet-with-all-formatting-page-setup） – Luuklag

下面的代碼將複製「Sheet1」，將其粘貼到最後，並將其重命名爲「Sheet」&此工作簿中的工作表數量。假設你有3張紙，你複製「Sheet1」，它放在「Sheet3」之後（不管你的最後一張紙的名稱是什麼），它將它重新命名爲「Sheet4」（從現在開始紙張的數量是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

來源

2017-03-08 11:56:16

感謝Shai Rado提供的答案，但是我的問題是如何在保留相同格式的sheet1時單獨複製某些單元格的顏色?????！我需要使用粘貼特殊嗎？ – ChL

@ChL這樣複製整個表格，單元格的顏色，單元格的字體顏色，邊框，所有東西就像它一樣 –

好吧，謝謝！ – ChL

複製工作表並保存格式（顏色）

回答

相關問題