在VBA中Range(a1).End(xlDown).Row值会时对时错是什么原因

在循环语句内使用的话,很容易出错,因为其值不会变化,
所以要放到循环语句前,取得最后一行的值,
另外,使用Range(a1).End(xlDown).Row如果A列第一行下面全为空,
则得到表的最后一行65536,容易出错,
建议使用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 Su