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

Question

你能告诉我如何在第 1 行中复制单元格的颜色、字体和样式吗？但不是单元格的内容。我编写了下面的代码，但它使用第一个单元格数据复制了上面的所有内容，这是我没想到的。

        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 的观点 :) 您可以自行设置数字，也可以使用 aconst通过工作表使用此格式。

Const xlPasteFormats = -4122 
Const xlPasteValues = -4163

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