利用VBA程式碼刪除空白行，如何刪除重複資料

分享成果，隨喜真能量。大家好，今日內容仍是和大家分享VBA程式設計中常用的簡單“積木”過程程式碼，NO。136-NO。138，內容是：插入多行表格的方法、如何刪除工作表中的空白行、刪除重複資料行等內容。

VBA過程程式碼136：如何在工作表中一次插入多行表格的方法3

Sub mynz（）

Sheets（“22”）。Rows（3）。Resize（3）。Insert

End Sub

程式碼的解析說明：上述過程使用Insert方法在第2行和第3行之間插入三行空行。

VBA過程程式碼137：EXCEL中，如何刪除工作表中的空白行

Sub mynz（）

Dim rRow As Long

Dim LRow As Long

Dim i As Long

rRow = Sheets（“23”）。UsedRange。Row

LRow = rRow + Sheets（“23”）。UsedRange。Rows。Count - 1

For i = LRow To rRow Step -1

If Application。WorksheetFunction。CountA（Rows（i）） = 0 Then

Rows（i）。Delete

End If

Next

End Sub

程式碼的解析說明：上述過程過程刪除工作表中已使用的區域的所有空行。其中使用UsedRange屬性返回工作表中已使用的區域。使用工作表CountA函式判斷當前行已使用單元格的數量，如果為零說明此行是空行則使用Delete刪除。 UsedRange屬性應用於Worksheet物件，返回指定工作表中已使用區域的Range物件，即返回工作表中已使用的單元格區域。 UsedRange。Row表示已用單元格第一行的序數； UsedRange。Rows。Count表示已用單元格總的行數；WorksheetFunction。CountA 方法 用於計算非空單元格及引數列表中值的個數。Application。WorksheetFunction。CountA（Rows（i）） 表示選中Rows（i）行的非空單元格的個數。

VBA過程程式碼138：EXCEL中，如何刪除重複資料行

Sub mynz（）

Dim R As Integer

Dim i As Integer

With Sheets（“24”）

R = 。［A65536］。End（xlUp）。Row

For i = R To 1 Step -1

If WorksheetFunction。CountIf（。Columns（1）， 。Cells（i， 1）） > 1 Then

。Rows（i）。Delete

End If

Next

End With

End Sub

程式碼的解析說明：上述過程過程刪除工作表A列重複單元格所在的整行內容，只保留一行。

使用工作表CountIf函式判斷單元格內容是否重複，如果重複則刪除該單元格所在的行。

下面是我根據自己20多年的VBA實際利用經驗，編寫的四部教程，這些是較大塊的“積木”，可以獨立的完成某些或者某類系統的過程，歡迎有需要的朋友聯絡（WeChat：NZ9668）分享。利用這些可以提高自己的程式設計效率。這些教程供有志於提高自己能力的朋友分享。

① 第一套“VBA程式碼解決方案”PDF教程，是VBA中各個知識點的講解，覆蓋了絕大多數的知識點，是初學及中級以下人員必備。

② 第二套“VBA資料庫解決方案”PDF教程。資料庫是資料處理的利器，對於中級人員應該掌握這個內容了。

③ 第三套“VBA陣列與字典解決方案”PDF教程，講解VBA的精華——字典，是我們開啟思路，提高程式碼水平的必備。

④ 第四套“VBA程式碼解決方案”影片教程。目前正在錄製，“每天20分鐘，半年精進VBA”，越早參與，回饋越多。現在錄製到第二冊的84講，第二級階段的優惠期即將結束。