直接上代碼。

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

這個就是很簡單的奇數表達方式。

運行效果如下圖。

總結

以上是生活随笔為你收集整理的vba怎么快速填充序列号vba 填充的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。