一、excel vba提取所有非空行？

1. 打开电脑后，找到准备好的excel表格打开。

2. 依次选择上方菜单栏的“开发工具”---“Visual Basic”。

3. 进入VBA编辑界面中，双击左侧数据所在的工作表，将在右侧代码编辑区显示。

4. 接下来输入代码：

例如：sub 鱼木混猪()

msgbox range(A65536).end(3).row

end sub

代码的意思即将光标定位在A65536单元格中，按下Ctrl+向上箭头组合键，自动选择最后一个非空行，进而获得行号。

代码输入好之后，选择上方的“运行子程序”。

5. 我们就得到了A列最后一个非空行的行号。

以上就是怎么利用Excel表格中的VBA得到最大非空行数的具体操作步骤。

二、输入VBA显示“缺少：行号或标签或语句或语句结束”？

vba代码内调用工作表函数，前面要加上application.

if函数可以改为iif，效果类似，不用加application.

{}要换为 array()即改成常量数组。

b1如果是指单元格 ，要改成[b1]，或者range(b1）

总之错误不少，你还不如直接用函数去表达。。干嘛 要用vba呢、

三、如何取得已用区域的最大行号(vba代码)？

Option Explicit Sub 显示区域内最大行号() Dim rgInput As Range '输入一个range，代表一个区域 Dim rg As Range Dim l As Long '最大行号 Set rgInput = Application.InputBox(请选择一个单元格区域, 提示, , , , , , 8) If Not rgInput Is Nothing Then For Each rg In rgInput If rg.Row > l Then l = rg.Row End If Next rg End If MsgBox 你选择的区域的最大行号为： & l End Sub 很笨的方法，遍历区域内每个单元格。