2017-01-30 161 views
0

此宏複製另一個工作簿中的單元格。我怎樣才能讓它只複製沒有公式的格式和值。複製沒有公式的單元格,但格式爲VBA

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 
+1

有無一看:http://stackoverflow.com/questions/25461314/vba-copy-cells-value-and-format – CLR

回答

1

要複製值和數字格式(無公式)使用:

Range("A1").PasteSpecial xlPasteValuesAndNumberFormats 

要複製值和整個格式(信元格式化爲好),使用:

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