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

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

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