找行和列的方法
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
**粗体** _斜体_ [链接](http://example.com) `代码` - 列表 > 引用
。你还可以使用@
来通知其他用户。