打开视图->宏->编辑,代码如下,cells(n,m)表示当前Excel表格第n行第m列</span>
Sub newdata()
Dim i As Long
For i = 1 To 10000
Cells(i, 1) = "numbe_r" & i
Next i
End Sub
注:Excel表格有行数限制,Excel2003:65536行;Excel2007/2010:1048576行。
打开视图->宏->编辑,代码如下,cells(n,m)表示当前Excel表格第n行第m列</span>
Sub newdata()
Dim i As Long
For i = 1 To 10000
Cells(i, 1) = "numbe_r" & i
Next i
End Sub
注:Excel表格有行数限制,Excel2003:65536行;Excel2007/2010:1048576行。