在循環(huán)語(yǔ)句內(nèi)使用的話(huà)，很容易出錯(cuò)，因?yàn)槠渲挡粫?huì)變化，
所以要放到循環(huán)語(yǔ)句前，取得最后一行的值，
另外，使用Range("a1").End(xlDown).Row如果A列第一行下面全為空，
則得到表的最后一行65536，容易出錯(cuò)，
建議使用Range("a65536").End(xlUp).Row
Sub a()
Dim i As Long
Dim r As Long
r = Range("a1").End(xlDown).Row
For i = 1 To 10
r = r + 1
Cells(r, 1) = i
Next i
End Sub

如果你在循環(huán)語(yǔ)句中使用它，很容易出錯(cuò)，因?yàn)橹禌](méi)有改變，

所以要放到循環(huán)語(yǔ)句前，取得最后一行的值，

另外，使用Range（＂a1＂）．End（xlDown）．Row如果A列第一行下面全為空，

則得到表的最后一行65536，容易出錯(cuò)，

建議使用Range（＂a65536＂）．End（xlUp）．Row

Suba（）

DimiAsLong

DimrAsLong

r＝Range（＂a1＂）．End（xlDown）．Row

Fori＝1To10

r＝r＋1

Cells（r，1）＝i

Nexti

EndSub