Question

我想知道如何使用特殊粘贴将格式（颜色）复制到工作表的内容之后。

我的代码：

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

使用此代码，新工作表"sheetsB" & btVar是"sheets1"的副本，但不保留格式（某些单元格的颜色）。

有人可以帮我吗？

Answer 1

下面的代码将复制“Sheet1”，将其粘贴到最后，并将其重命名为“Sheet”＆amp;本工作簿中的工作表数量。

示例：假设你有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

复制工作表，保留格式（颜色）

1 个答案: