找行和列的方法

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

图片描述


zengdamo
69 声望6 粉丝

教书匠 程序猿-Weibo


« 上一篇
乘积练习-vab
下一篇 »
查询系统-vba

引用和评论

0 条评论