复制没有公式的单元格，但格式为VBA

此macros将单元格复制到另一个工作簿中。 我怎样才能使它只复制没有公式的格式和值。

With Worksheets("Analysis") Range("A1:J35").copy Windows("2016-Backtesting-Aggregation_EquityNEU.xlsx").Activate Sheets.Add After:=Sheets(Sheets.Count) Range("A1").PasteSpecial _ Operation:=xlPasteSpecialOperationAdd ´ End With 

Answer 1

要复制值和数字格式（不含公式），请使用：

 Range("A1").PasteSpecial xlPasteValuesAndNumberFormats 

要复制值和整个格式（单元格格式），请使用：

 .Range("A1").PasteSpecial xlPasteValues .Range("A1").PasteSpecial xlPasteFormats .Range("A1").PasteSpecial xlPasteAllUsingSourceTheme '<-- cells background, etc.