直接上代码。
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
这个就是很简单的奇数表达方式。
运行效果如下图。
