复制工作表并保存格式（颜色）

-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

复制工作表并保存格式（颜色）

回答

相关问题