Excel中利用VBA编程获取某列最后非空行行号

在VBA编程中，我们更多时候需要获取某列非空行的行号，对此可以采取以下方法来获取。

首先，为了讲解的需要，特制作如图所示的表格。



按“Alt+F11”进入VBA编程环境，右击“Microsoft Excel对象”，选择“插入”->“模块”项。



接着输入如图所示的代码：

Sub 显示某列非空行的行号()

    Dim i, j As Integer

    i = Sheets(1).[A65535].End(xlUp).Row

    j = Sheets(1).[B65535].End(xlUp).Row

    MsgBox "A列中非空行行号为" & i & Chr(10) & "B列中非空行行号为" & j, vbOKOnly, "提示"

End Sub



然后点击“运行子过程”按钮，在弹出的窗口中点击“运行”按钮。





就可以看到运行结果啦。