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

【问题标题】：How to Copy the one Cell Format to the all the Cells beside that Cell?如何将一个单元格格式复制到该单元格旁边的所有单元格？
【发布时间】：2013-02-03 23:56:27
【问题描述】：

您能否指导我说我如何复制第 1 行中单元格的颜色、字体和样式？但不是单元格的内容。我写了下面的代码，但它被复制了上面所有的第一个单元格数据，这是我没想到的。

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

请在这里指导！

谢谢，

【问题讨论】：

标签： vba excel vbscript

【解决方案1】：

试试下面的：

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

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

Const xlPasteFormats = -4122 
Const xlPasteValues = -4163

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

【讨论】：

你需要给他相关的数值，因为 vbScript 无法读取xlPasteFormats，但它可以读取任何枚举。
@ScottHoltzman 我是从 Excel VBA 文档中找到的，所以没问题 :-) 它是 -4122
@ScottHoltzman +1 谢谢 :) Tukai，我不确定是不是-4105，它说是-4122