Sub delSheet()

Application.DisplayAlerts = False

If Worksheets.Count >= 3 Then

For i = Worksheets.Count To 3 Step -1

Worksheets(i).Delete

Next

End If

Application.DisplayAlerts = True

End Sub

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得到最大非空行数的具体操作步骤。