[已解决]VBA，返回某列最后和最前一个有数据的单元格

yjwdjfqb

VBA，返回某列最后和最前一个有数据的单元格


请见附件：

最佳答案

月排行榜 / 总排行榜

moku2006

2011-8-31 20:27

VBA，返回某列最后和最前一个有数据的单元格.rar (8.09 KB, 下载次数: 4)

2011-8-31 20:27 上传

点击文件名下载附件 Sub aa()
Range("B1").End(xlDown).Select
End Sub
Sub bb()
Range("B65536").End(xlUp).Select
End Sub

跳转到最佳答案楼层

windimi007

回复 yjwdjfqb 的帖子

貌似最后一个单元格是B62吧！{:3912:}
试试下面的代码：
最后：

1. Sub aa()
   
2.     Range("b:b").Find("*", , , , , xlPrevious).Select
   
3. End Sub

复制代码

最前：

1. Sub bb()
   
2.     Range("b:b").Find("*").Select
   
3. End Sub

复制代码

liuguansky

第一个，set rng=iif(len(range("A1"),range("a1"),range("A1").end(4))
最后，set rng=cells(rows.count,1).end(3)

moku2006

VBA，返回某列最后和最前一个有数据的单元格.rar (8.09 KB, 下载次数: 4)

2011-8-31 20:27 上传

点击文件名下载附件 Sub aa()
Range("B1").End(xlDown).Select
End Sub
Sub bb()
Range("B65536").End(xlUp).Select
End Sub

yjwdjfqb

回复 moku2006 的帖子

感谢老师，问题解决了。