☰

如何使用宏创建仅包含值和格式（包括条件格式的结果）的新 Excel 电子表格

tag-icon • tag-icon microsoft-excel macros
如何使用宏创建仅包含值和格式（包括条件格式的结果）的新 Excel 电子表格

我编写了这个宏来取消保护现有的工作表，从现有工作表复制数据，打开一个新电子表格，将数据连同值和格式粘贴到新的电子表格中，然后再次保护现有的工作表。

问题是，条件格式的结果没有被粘贴，只有基本格式。我想知道如何在新电子表格中保留 CF 规则产生的格式。任何帮助都将不胜感激 - 谢谢。

Sub Create_Monthly_Return()

'Unprotect

ThisWorkbook.Worksheets("Monthly Return").Unprotect Password:="password"
    
'Create new spreadsheet  
Columns("A:N").Select
    
Selection.Copy

Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats
    
'Protect
    ThisWorkbook.Worksheets("Monthly Return").Protect Password:="password"

End Sub

相关内容