[已解决]求助各位老师，如何让鼠标定位到当前光标所在行开始B列向下最近的空白单元格？？

daxindianqi

求助各位老师，如何让鼠标定位到当前光标所在行开始B列向下最近的空白单元格？？



例如：1111.jpg 图片 运行代码后鼠标光标定位到 “B20”

           2222.jpg 图片 运行代码后鼠标光标定位到 “B9”

最佳答案

月排行榜 / 总排行榜

七彩屋

2016-8-28 15:38

daxindianqi 发表于 2016-8-28 14:59
鼠标光标已经在B列最下的空白单元格后，再次运行就会出现错误。

Sub qcw1()
If ActiveCell.Row > Range("b65536").End(xlUp).Row Then Exit Sub
Range("b" & ActiveCell.Row).End(xlDown).Offset(1, 0).Select
End Sub
或者
Sub qcw2() '如果点在空白处也能定位到下一个
I = ActiveCell.Row
If I > Range("b65536").End(xlUp).Row Then Exit Sub
J = Range("B" & I & ":B65536").Find("*", LookIn:=xlValues).Row
Range("b" & J).End(xlDown).Offset(1, 0).Select
End Sub

跳转到最佳答案楼层

七彩屋

Sub qcw()
Range("b" & ActiveCell.Row).End(xlDown).Offset(1, 0).Select
End Sub

daxindianqi

七彩屋 发表于 2016-8-28 13:57
Sub qcw()
Range("b" & ActiveCell.Row).End(xlDown).Offset(1, 0).Select
End Sub

鼠标光标已经在B列最下的空白单元格后，再次运行就会出现错误。

七彩屋

daxindianqi 发表于 2016-8-28 14:59
鼠标光标已经在B列最下的空白单元格后，再次运行就会出现错误。

Sub qcw1()
If ActiveCell.Row > Range("b65536").End(xlUp).Row Then Exit Sub
Range("b" & ActiveCell.Row).End(xlDown).Offset(1, 0).Select
End Sub
或者
Sub qcw2() '如果点在空白处也能定位到下一个
I = ActiveCell.Row
If I > Range("b65536").End(xlUp).Row Then Exit Sub
J = Range("B" & I & ":B65536").Find("*", LookIn:=xlValues).Row
Range("b" & J).End(xlDown).Offset(1, 0).Select
End Sub

daxindianqi

七彩屋 发表于 2016-8-28 15:38
Sub qcw1()
If ActiveCell.Row > Range("b65536").End(xlUp).Row Then Exit Sub
Range("b" & ActiveCel ...

谢谢“七彩屋 ”，在你的代码启发下，我已经写好了，再次感谢。