在本文中，我们将创建一个宏以删除包含空白单元格的不完整记录。

原始数据由一些样本数据组成，其中包括姓名，年龄和性别。它还包含一些空白单元格。

ArrowRawData

我们要删除那些包含空白单元格的记录。

ArrowOutput

逻辑解释

我们创建了“ BlankRowDeletion”宏以删除不完整的记录。

它搜索并选择空白单元格，然后删除包含空白单元格的整行。

代码说明

设置Rng = Range（“ A9：C”＆LastRow）

上面的代码用于为给定数据创建范围对象。

Rng.SpecialCells（xlCellTypeBlanks）.Select上面的代码用于选择指定范围内的空白单元格。

Selection.EntireRow.Delete上面的代码用于删除所选单元格的整个行。

请遵循以下代码

Option Explicit

Sub BlankRowDeletion()

'Declaring variables

Dim LastRow As Long

Dim Rng As Range

'Getting row number of last cell

LastRow = Range("A1").SpecialCells(xlCellTypeLastCell).Row

'Selecting all data

Set Rng = Range("A9:C" & LastRow)

'Selecting Blank cells

Rng.SpecialCells(xlCellTypeBlanks).Select

'Deleting complete row

Selection.EntireRow.Delete

Range("A9").Select

End Sub

如果您喜欢此博客，请在Facebook和Facebook上与您的朋友分享。

我们希望收到您的来信，请让我们知道如何改善我们的工作并为您做得更好。写信给我们[email protected]