如何自动填充数据（不是格式）

Question

在Cell B6中有1号，颜色为红色。但其他单元格不是红色的，并且没有任何数据。执行以下代码后，从B6到B18，将填充数字1~13，但这里有问题！我不想把B6的红色复制到B7 ...... B8 ...... B9 ......而且......我只需复制没有基本格式的格式......

    Range("B6").FormulaR1C1 = "1"
    Range("B6").AutoFill Destination:=Range("B6:B18"),Type:=xlFillSeries

我可以找到类似这样的属性：xlFillSeriesWithoutFormat或者这样做的方法吗？

Answer 1

根据MS Docs *，似乎xlFillValues是您最好的选择：

<击>   

仅将源范围内的值复制到目标范围，必要时重复。

所有其他选项明确声明他们将复制格式。看起来你唯一的选择是：

• 复制后从目标单元格中​​删除格式
• 没有要复制的格式：
  1. 保存格式
  2. 从源单元格中删除格式
  3. 执行.AutoFill
  4. 然后将格式还原到源单元格

Google搜索“excel vba .autofill”发现

^*