第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