定位A列中最后一个非空且非错误值的单元格

2012-7-16 01:09| 发布者: 温强| 查看: 11431| 评论: 0

代码如下：

Public Sub t()

Range("a65536").End(xlUp).Select

Do While IsError(ActiveCell) = True

wz:

ActiveCell.Offset(-1, 0).Select

If IsError(ActiveCell) = True Then GoTo wz

If ActiveCell = "" Then GoTo wz

Loop

End Sub

分享到：微信 QQ好友新浪微博 QQ空间腾讯微博人人网

官方微信

三全育人平台

事业单位

蒙公网安备15090002001004

报名咨询 关注微信 在线报名 返回顶部