wbTarget.Sheets("Sheet1").Range("A1:W79").Value = wb.Sheets(wsSource.Name).Range("A1:W79").Value
我有这段代码可以将 wb.Sheets(wsSource.Name) 的值粘贴到 wbTarget 工作表。但是，它只粘贴值而不是格式/颜色。如何粘贴它，包括字体、单元格颜色。
最佳答案
您需要使用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 - 复制和粘贴格式，包括单元格颜色 VBA Excel，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/43112386/