wbTarget.Sheets("Sheet1").Range("A1:W79").Value = wb.Sheets(wsSource.Name).Range("A1:W79").Value
我有这段代码,可以将 wb.Sheets(wsSource.Name) 的值粘贴到 wbTarget 工作表。但是,它仅粘贴值而不粘贴格式/颜色。如何粘贴它,包括字体、单元格颜色。
你需要使用Copy
, and PasteSpecial xlValues
and 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
here MSDN
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)