excel表格中,a列的值是不段变动的,如何最后一个非空行的行号?

如题所述

编写一个用户自定义函数如下:

Function hangshu()

hangshu = ActiveSheet.UsedRange.Rows.Count

End Function

编辑环境可以看截图

温馨提示:答案为网友推荐,仅供参考
第1个回答  2011-10-10
使用VBA对工作表进行操作时,经常需要定位到指定行或列中最后一个非空单元格,此时可以使用Range对象的End属性,在取得单元格对象后便能获得该单元格的相关属性,如单元格地址、行列号、数值等,如下面的代码所示。
#001 Sub LastRow()
#002 Dim rng As Range
#003 Set rng = Sheet1.Range("A65536").End(xlUp)
#004 MsgBox "A列中最后一个非空单元格是" & rng.Address(0, 0) _
#005 & ",行号" & rng.Row & ",数值" & rng.Value
#006 Set rng = Nothing
#007 End Sub
第2个回答  2011-10-10
如果是数值,可以用=MATCH(9E+307,A:A)
如果是文字,可以用=MATCH(CHAR(65535),A:A)本回答被提问者采纳
相似回答