VBA即用型代码手册：删除Excel中空白行Delete Blank Rows in Excel
我给VBA下的定义：VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率，而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。
作为我的学员要利用我的积木编程思想，积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木，同时讲解了如何搭建。为了让学员拥有更多的积木，我开始着手这部《VBA即用型代码手册（汉英）》的创作，这部手册约600页，集合约500多个的案例，案例我用汉语和英语同时发布，一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识，另一方面，大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是： VBA即用型代码手册：删除Excel中的空白行Delete Blank Rows in Excel
【分享成果，随喜正能量】人与人之间都是相互的，你给人搭桥，别人为你铺路；你让人难堪，别人给你添堵。。
第四章 工作表代码
Worksheet Codes
17 删除Excel中的空白行Delete Blank Rows in Excel
这是一个宏，它将删除Excel中的空白行。如果在您选择的列中检测到空白单元格，则此版程序将删除整行。程序将弹出一个消息框，询问您有多少行，在您选择的单元格下方，包括您选择的单元格，如果它在该列中包含空单元格，则要检查并删除它。
This is a macro which will delete blank rows in excel. This version will delete an entire row if there is a blank cell detected in the column which you select.
This works by having a message box pop up in excel and then asking you how many rows, below and including the cell you selected, you want to check for and delete if it contains an empty cell within that column.
Sub mynzDeleteEmptyRows()
'此宏将删除特定列中缺失数据行
Dim Counter
Dim i As Integer
Counter = InputBox("输入要处理的总行数!")
ActiveCell.Select
For i = 1 To Counter
If ActiveCell = "" Then
Selection.EntireRow.Delete
Counter = Counter - 1
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
End Sub
- 本节内容参考程序文件：Chapter04-2.xlsm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
