任意单元格下拉即可。
=TEXT(ROW(A1),"000")
或者
Sub a()For i = 0 To 999 Cells(i + 1, 1) = "'" & Format(i, "000")NextEnd Sub
