Question

此宏将复制另一个工作簿中的单元格。如何使其仅复制没有公式的格式和值。

    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.

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

1 个答案: