复制和粘贴格式包括单元格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