EXCEL中的VBA。 自动填充权限

Question

如何在右侧进行自动填充？

我已经搜索并尝试复制我在其他线程上看到的相同步骤，但它对我不起作用。 也许是因为缺乏直觉。

我的工作表正在从 VBA 生成一个新工作表（它是蒙特卡洛斯模拟）。 我想在矩阵顶部生成一个新行，并用“0,1,2,...,X”填充从 B1 到最后一列的行

我试过以下代码：

Sheets("valores").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B1").Select
ActiveCell.FormulaR1C1 = "0"
Range("B2").Select
Selection.End(xlToRight).Select
Range("LastColumn"&1).Select
Range(Selection, Selection.End(xlToLeft)).Select
Selection.DataSeries Rowcol:=xlRows, Type:=xlLinear, Date:=xlDay, Step _
    :=1, Trend:=False

  
  MsgBox "Sheet generated."
  

有人可以给我一些帮助吗？ 谢谢！

Answer 1

假设您想从单元格 B1 向右填充到单元格 X，连续递增值 1，那么您可以使用以下代码：假设单元格 X 是例如 Z1，您有：

Range("B1").Value=0
Range("B1").Select
Selection.Autofill Destination :=Range("B1:Z1"), Type 
:=xlFillSeries