在VBA中Range("a1").End(xlDown).Row值会时对时错是什么原因
答案:3 悬赏:10 手机版
解决时间 2021-03-10 13:19
- 提问者网友：寂寞梧桐
- 2021-03-09 23:04
在VBA中Range("a1").End(xlDown).Row值会时对时错是什么原因
最佳答案
- 五星知识达人网友：执傲
- 2021-03-10 00:21
在循环语句内使用的话，很容易出错，因为其值不会变化，
所以要放到循环语句前，取得最后一行的值，
另外，使用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 Sub
所以要放到循环语句前，取得最后一行的值，
另外，使用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 Sub
全部回答
- 1楼网友：枭雄戏美人
- 2021-03-10 01:21
对不起,我也不会哦,不过,可能是这个"街道办理厂(a1)完成(某某某).row
- 2楼网友：孤独的牧羊人
- 2021-03-10 01:09
如果你是统计资料表中的行数的话需
把Range("a1").End(xlDown).Row更改成
Range("A65536").End(xlUP).Row也可以解决你的问题
试试看吧
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯