vba怎么快速填充序列号？

直接上代码。

Sub d()

Dim i

For i = 1 To 1000

Cells(i, 1) = i

Next i

End Sub

运行效果如下图。

这样1000个序号就填充起来了。

解析下这段代码。

Dim就是定义变量，后面空格跟个i，就是定义的i这个变量。

然后用的是for next语句，这个是循环语句，感觉比易语言还简单。

For i = 1 To 1000

Cells(i, 1) = i

Next i

就是i从1开始到1000结束。

Cells里面的括号，就是标注的行列，i是行数，1是列数。

后面用等号赋值，每循环一次，就把对应单元格里面的内容填充，填充的就是i当时的数值。

这个代码一运行，立马就是填充了1000给序号。

还可以把这个代码变通下。

Sub d()

Dim i

For i = 1 To 1000

Cells(i, 1) = i * 2 - 1

Next i

End Sub

这里主要是把Cells(i, 1) = i变成Cells(i, 1) = i * 2 - 1

这个就是很简单的奇数表达方式。

运行效果如下图。