如何用VBA获得单列最后一个有内容的单元格？

1、如下图所示，要获得A列最后一个有内容的单元格的行号可以通过以下的代码。

2、Sub xyf()

    MsgBox Sheet1.Range("a65536").End(xlUp).Row

End Sub

由于一般的数据都不可能超过65536行，所以可以把开始操作的单元格设置为Range("a65536")。用Range对象的.End(xlUp)方法相当于在Excel单元格中按下Ctrl+向上箭头定位到最上面一个有内容的单元格。