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

Question

你能指导我如何在行＃1中复制一个单元格的颜色，字体和样式吗？但不是Cell.I的内容写了下面的代码，但它被上面所有的First Cell数据复制，我不指望。

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

请在这里指导！

谢谢，

Answer 1

尝试以下方法：

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

我在这里看到斯科特的观点:)您可以自己设置数字，也可以使用const通过工作表使用此格式。

Const xlPasteFormats = -4122 
Const xlPasteValues = -4163

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