Question

excel宏编写自动填充

正常录制的自动填充宏是
Range("A1:B1").Select
Selection.AutoFill Destination:=Range("A1:B32")
Range("A1:B32").Select
这个是自动填充了32行，我想定义一个变量i，如果i=9，就自动填充9行，如果i=100，就自动填充100行，这个宏应该如何修改

Answer 1

1：选中需要填充的单元格，在第一个单元格中输入要填充的数值，使用快捷键CTRL+R为向右填充，CTRL+D为向下填充。
2：选中需要循环填充的单元格直接拖拽。
3：在第一个单元格中输入数值，选择：编辑→填充→序列 设置步长值为1，终止值为1000，序列产生在行或列可自选。

Answer 2

试试这个,可以自己选填充的行数
Sub xx()
Dim i
i = InputBox("自定义填充到哪一行的行数", , 0)
Range("A1:B1").Select
Selection.AutoFill Destination:=Range("A1:B" & i)
End Sub

Answer 3

dim i
i=100
Range("A1:B1").Select
Selection.AutoFill Destination:=Range("A1:B" & i)

Answer 4

dim i
i = 9
Range("A1:B1").Select
Selection.AutoFill Destination:=Range("A1:B"&i)