[已解决]返回当前列最前一个有数据的单元格问题

yjwdjfqb

返回当前列最前一个有数据的单元格问题


Sub 返回当前列最后一个非空单元格()  ‘这个能返回当前列，最后一个有数据的单元格
    Set Rng = Cells(Rows.Count, ActiveCell.Column).End(xlUp)
    Rng.Select
End Sub
上面是返回当前列，最后一个有数据的单元格


为什么下面这个不能正确的返回。
Sub 返回当前列最前一个非空单元格()  ‘这个不能返回当前列，最前一个有数据的单元格
    Set Rng = Cells(Rows.Count, ActiveCell.Column).End(xlDown)
    Rng.Select
End Sub
请大家帮我看看，谢谢了。
附件.rar (6.34 KB, 下载次数: 13)

2015-9-6 09:35 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

qh8600

2015-9-6 10:10

yjwdjfqb 发表于 2015-9-6 09:58
我测试了下，是返回了当前列，最后一个有数据的单元格呀。

1. Sub demo()
   
2.     Range(Cells(1, ActiveCell.Column), Cells(Rows.Count, ActiveCell.Column)).Find("*").Select
   
3. End Sub

复制代码

这样

跳转到最佳答案楼层

Hsiao

Set Rng = Cells(Rows.Count, ActiveCell.Column).End(xlDown)

这是工作表最后一行了,肯定不能再往下了

是不是这个意思?
Set Rng = ActiveCell.End(xlDown)
Rng.Select

qh8600

比如是2010版，这个已经是1048576行，怎么往下查找啊，应该从最上面的那个单元格开始往下

yjwdjfqb

Hsiao 发表于 2015-9-6 09:48
Set Rng = Cells(Rows.Count, ActiveCell.Column).End(xlDown)

这是工作表最后一行了,肯定不能再往下了
...

我测试了下，是返回了当前列，最后一个有数据的单元格呀。


我想实现的是，返回当前列，第一个有数据的单元格。

qh8600

yjwdjfqb 发表于 2015-9-6 09:58
我测试了下，是返回了当前列，最后一个有数据的单元格呀。

1. Sub demo()
   
2.     Range(Cells(1, ActiveCell.Column), Cells(Rows.Count, ActiveCell.Column)).Find("*").Select
   
3. End Sub

复制代码

这样

Hsiao

yjwdjfqb 发表于 2015-9-6 09:58
我测试了下，是返回了当前列，最后一个有数据的单元格呀。

Set Rng = Cells(1, ActiveCell.Column).End(xlDown)
Rng.Select

yjwdjfqb

qh8600 发表于 2015-9-6 10:10
这样

这个可以，如果当前列，没有数据时，会报错!

yjwdjfqb

Hsiao 发表于 2015-9-6 10:28
Set Rng = Cells(1, ActiveCell.Column).End(xlDown)
Rng.Select

谢谢老师，这个好用点，能否加一个判断上呀老师

如果当前列，没有数据的话，就弹出提示，当前列无数据，确定退出。

Hsiao

Set Rng = Cells(1, ActiveCell.Column).End(xlDown)
if rng.row=rows.count then
     msgbox "当前列无数据"
else
Rng.Select
end if

yjwdjfqb

Hsiao 发表于 2015-9-6 10:39
Set Rng = Cells(1, ActiveCell.Column).End(xlDown)
if rng.row=rows.count then
     msgbox "当前列无 ...

谢谢老师了，这个好用，就用这个啦 !