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

【问题标题】：Copying cells without the fomulas, but with format VBA复制没有公式但格式为 VBA 的单元格
【发布时间】：2017-01-30 18:56:49
【问题描述】：

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

    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

【问题讨论】：

看看：stackoverflow.com/questions/25461314/…

标签： vba excel

【解决方案1】：

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

Range("A1").PasteSpecial xlPasteValuesAndNumberFormats

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

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

【讨论】：