复制和粘贴格式，包括单元格的颜色VBA Excel [英] Copy and paste format including colour of cells VBA Excel

问题描述

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的信息" rel ="nofollow noreferrer"> MSDN

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

I have this code which works pasting the values of wb.Sheets(wsSource.Name) to wbTarget sheets. However, it only pastes the value and not the format/color. How do I paste it including the fonts, color of cell.

解决方案

You need to use 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

Read about Range.PasteSpecial here MSDN

这篇关于复制和粘贴格式，包括单元格的颜色VBA Excel的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！