Question

如何使用vba命令定位到最后一行有内容单元格的下一行。

Answer 1

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

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

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

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

End Sub

3、然后或者输入代码：

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

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

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

End Sub Cells(Rows.Count, 1)'选择最后一个单元格。

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

5、然后就完成了、

Answer 2

i=range("A65536").end(xlup).row()+1
这个i就是A列你要的行号
此代码只适用于excel 2003
如果是07以上
65536修改为1048576

追问

那怎么定位那

追答

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

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

追问

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

追答

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

追问

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

追答

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

Answer 3

Sub 选择单元格最下面第一个空值()
Range("a" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Select
End Sub

sub 选择单元格最后一行()
Range("a" & Cells(Rows.Count, 1).End(xlUp).Row).Select
Cells(Rows.Count, 1).End(xlUp).Select'                或者这样也行
End Sub

Cells(Rows.Count, 1)'选择最后一个单元格