我給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實踐經驗，全部濃縮在下面的各個教程中：