1、首先打开需要编辑的Excel表格，鼠标右键单击工作表，选择打开“查看代码”。

2、然后在弹出来的窗口中点击输入代码：

Sub 选择单元格最下面第一个空值()

Range("a" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Select

3、然后或者输入代码：

sub 选择单元格最后一行()

Range("a" & Cells(Rows.Count, 1).End(xlUp).Row).Select

Cells(Rows.Count, 1).End(xlUp).Select'

4、然后点击上方的运行。

5、然后就完成了、

不懂你的定位是什么概念。

sub aa()
i=range("A65536").end(xlup).row()+1
range("A" & i).Select
msgbox "你需要的是A"& i
end sub

就是直接将光标选择到，最后一行有内容的下一行。就是这个意思了

我已经修改了上面的代码。试一下吧

我需要的是自动选择光标的位置不是输出文本信息。

代码包含了选择位置和输出文本。
自己一定要捡现成代码吗？
无非删除一下msgbox语句