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

复制和粘贴格式，包括单元格颜色VBA Excel

1 个答案: