查找最后一个单元格的两种方法
找行和列的方法
Sub 最后一个单元格()Dim a%, b%
a = ActiveSheet.UsedRange.Rows.Count
b = ActiveSheet.UsedRange.Columns.Count
MsgBox Cells(a, b).Address & "是最后一个单元格"End Sub
用find函数的方法
Sub 最后一个单元格2()Dim rng
找行和列的方法
Sub 最后一个单元格()
Dim a%, b%
a = ActiveSheet.UsedRange.Rows.Count
b = ActiveSheet.UsedRange.Columns.Count
MsgBox Cells(a, b).Address & "是最后一个单元格"
End Sub
用find函数的方法
Sub 最后一个单元格2()
Dim rng As Range
Set rng = Cells.Find("*", , , , , xlPrevious)
rng.Select
End Sub
关键字：vba
版权声明
本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如若转载，请注明出处。如若内容有涉嫌抄袭侵权/违法违规/事实不符，请点击 举报 进行投诉反馈！
