Vba 一份接一份地复制工作表并保留格式（颜色）

我想知道如何使用特殊的粘贴方式，以格式（颜色）一张接一张地复制工作表的内容

我的代码：

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

使用此代码，新工作表

“sheetsB”和btVar

是

“sheets1”

的副本，但不保留格式（某些单元格的颜色）

有人能帮我吗？

下面的代码将复制“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

---

可能重复感谢Shai Rado的回答，但我的问题是，在复制某些单元格的颜色时，如何保留相同格式的sheet1？？？？？！我需要使用“粘贴特殊”吗？？？@ChL这会按原样复制整个工作表、单元格颜色、单元格字体颜色、边框以及所有内容