復制和粘貼格式包括單元格VBA Excel的顏色

Question

wbTarget.Sheets("Sheet1").Range("A1:W79").Value = wb.Sheets(wsSource.Name).Range("A1:W79").Value

我有這個代碼，它將wb.Sheets（wsSource.Name）的值粘貼到wbTarget表。 但是，它只粘貼值而不是格式/顏色。 如何粘貼它，包括字體，單元格的顏色。

Answer 1

您需要使用Copy ， PasteSpecial xlValues和PasteSpecial xlFormats 。

' Copy
wb.Sheets(wsSource.Name).Range("A1:W79").Copy
' Paste Special
wbTarget.Sheets("Sheet1").Range("A1:W79").PasteSpecial xlValues
wbTarget.Sheets("Sheet1").Range("A1:W79").PasteSpecial xlFormats

在這里閱讀有關Range.PasteSpecial MSDN