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

Question

您能否通过说“如何复制第1行中的单元格的颜色，字体和样式”来指导我？ 但是不是Cell的内容。我写了下面的代码，但是上面的代码都复制了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 

我在这里看到Scott的观点：)您既可以设置数字本身，也可以使用const通过工作表使用此formattig。

Const xlPasteFormats = -4122 
Const xlPasteValues = -4163

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