我输入一个数，如何能做到自动填充从1到这个数的等差数列

写个宏？

我来了，先上公式，貌似连函数都不会
A1=起始值，B1是步进值
A2=A1+$b$1
下拉就可以了，看是不是想要的结果。
用电脑上贴吧又抽了，看不到图也上传不了图，一会用手机看看。

有公式了我就来个宏吧，把终点值写在某单元格，鼠标点在这个格上，运行宏，数列从a1开始

Sub kk()
Columns("A:A").Select
Selection.ClearContents
Range("a1") = "=b2"
Dim x As Integer
x = Range("b2") '起始值
y = Range("c2") '步进值
k = 1 '行号
Do
x = x + y
k = k + 1
Cells(k, 1) = x
Loop Until k = Range("d2")
End Sub
我来了
B2=起始值
C2=步进值
D2=生成行数
填好后运行就好了
我还是插不了截图。恨死我了

右击工作表标签>查看代码>粘贴下面代码后回到工作表,修改B1单元格值即可在a列得到你要的序列.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$B$1" Then '如果修改b1单元格数值
Application.EnableEvents = False
Range("a:a").ClearContents '清除a列值
Cells(1, 1) = 1'在a1写入1
Cells(1, 1).Resize([b1]).DataSeries '从a1开始填充等差序列
Application.EnableEvents = True
End If
End Sub

如在A1单元格中输入1，然后使用 填充-序列，在列中选择从1-2000，点击确定就可以了