如何将一个单元格格式复制到该单元格旁边的所有单元格？

你能指导我说如何复制单元格的颜色，字体和样式，比如说在第一行中？但不是Cell.I的内容，我写了下面的代码，但它被上面的First Cell数据所复制，我不会期望。如何将一个单元格格式复制到该单元格旁边的所有单元格？

 ob3.Range("A1").Copy 
    ob3.Range("A1").EntireRow.PasteSpecial(-4163) 'xlValues

请指导这里！

感谢，

2012-12-24 arun_roy

尝试follwing：

ob3.Range("A1").Copy 
ob3.Range("A1").EntireRow.PasteSpecial (xlPasteFormats) 
Application.CutCopyMode = False

我在这里看到斯科特的点:)要么你可以设置自己的号码或者使用const通过您的工作表使用此formattig。

Const xlPasteFormats = -4122 
Const xlPasteValues = -4163 

ob3.Range("A1").Copy 
ob3.Range("A1").EntireRow.PasteSpecial xlPasteFormats

2012-12-24 14:42:48 bonCodigo

您需要给他关联的数值，因为vbScript无法读取'xlPasteFormats'，但它可以读取任何枚举。 –

@ScottHoltzman我从Excel VBA文档中找到它，所以没问题:-)它是'-4122' –

@ScottHoltzman +1并且谢谢你:) Tukai，我不确定它是否是'-4105'，它表示它是'-4122' – bonCodigo

回答