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

Question

如题所述

Answer 1

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

Function hangshu()

hangshu = ActiveSheet.UsedRange.Rows.Count

End Function

编辑环境可以看截图

Answer 2

使用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

Answer 3

如果是数值，可以用=MATCH(9E+307,A:A)
如果是文字，可以用=MATCH(CHAR(65535),A:A)本回答被提问者采纳