如何在 Excel 中删除某些列中缺失值或空白值的行

ms excelmicrosoft technologiescomputers更新于 2024/8/24 2:20:17

对于各种数据分析工作来说，拥有干净、全面的数据至关重要。然而，处理缺失值或空白值可能很困难。幸运的是，Excel 包含许多强大的工具和函数，可以轻松发现和删除包含缺失值或空白值的行。

本教程将逐步指导您识别和删除 Excel 工作表中某些列中缺失值或空白值的行。无论您处理的是小型数据集还是大型电子表格，这些策略都可以帮助您快速准确地清理数据。

删除某些列中缺失值/空白值的行

在这里，我们将首先创建一个 VBA 模块，然后运行它来完成任务。让我们通过一个简单的过程来学习如何在 Excel 中删除某些列中缺失值或空白值的行。

步骤 1

假设有一张 Excel 工作表，其中包含包含空白值的行，如下图所示。

首先，右键单击工作表名称，然后选择"查看代码"以打开 VBA 应用程序。

右键单击 > 查看代码

步骤 2

然后点击"插入"，选择"模块"，然后将以下代码复制到文本框中。

插入 > 模块 > 复制。

示例

Sub DeleteRows()
    Dim I As Integer
    Dim xCount As Integer
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Delete Rows Blank", 
xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "You can't select multiple ranges to operate", vbInformation,
"Kutools for Excel"
        Exit Sub
    End If
    xCount = xRg.Rows.Count
    For I = xCount To 1 Step -1
        If Application.WorksheetFunction.CountBlank(xRg.Rows(I)) > 0 Then
            xRg.Rows(I).EntireRow.Delete
        End If
    Next
End Sub