Excel如何删除D列为空对应行的A至K列内容（不删除整行）

方案1：手动快速操作（无需代码，适合单次处理） #

• 点击D列列标选中整列
• 按下快捷键Ctrl+G调出「定位」对话框，点击左下角「定位条件」
• 在弹出窗口选择「空值」，点击确定，此时D列所有空单元格会被批量选中
• 不要点击表格其他位置，直接在表格左上角的名称框（编辑栏左侧输入框）中输入公式 INDIRECT("A"&ROW()&":K"&ROW())，按下Ctrl+Enter批量选中所有空值行对应的A-K列范围
• 按下键盘Delete键即可批量清空对应内容

方案2：VBA脚本（适合动态数据，每次更新后一键运行） #

该脚本可自动跳过D列无空值的场景，仅清空对应行A-K列内容，不会删除整行，也不会修改K列之后的任何数据。

基础版（适合1000行以内的小数据量） #

Sub 清空D列为空对应行AK内容()
    Dim lastRow As Long, i As Long
    '获取D列最后一行有数据的行号
    lastRow = Cells(Rows.Count, "D").End(xlUp).Row
    '默认第1行为表头，从第2行开始遍历，可自行修改起始行数值
    For i = 2 To lastRow
        If IsEmpty(Cells(i, "D").Value) Then
            '清空当前行A到K列内容
            Range("A" & i & ":K" & i).ClearContents
        End If
    Next i
End Sub

高效版（适合1000行以上的大数据量） #

采用筛选逻辑代替逐行遍历，运行速度更快：

Sub 高效清空D列为空对应行AK内容()
    Dim lastRow As Long, rng As Range
    lastRow = Cells(Rows.Count, "D").End(xlUp).Row
    '取消已有筛选避免冲突
    If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
    'D列筛选空值
    Range("D1:D" & lastRow).AutoFilter Field:=1, Criteria1:="="
    '捕获筛选出的空值行
    On Error Resume Next
    Set rng = Range("D2:D" & lastRow).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    '取消筛选
    ActiveSheet.AutoFilterMode = False
    '存在空值行时清空对应A-K列内容
    If Not rng Is Nothing Then
        Intersect(rng.EntireRow, Range("A:K")).ClearContents
    End If
End Sub

注意：脚本默认作用于当前激活的工作表，如需指定工作表，可在所有Cells、Range前添加工作表标识，例：Sheets("销售数据表").Cells(...)

内容的提问来源于stack exchange，提问作者Automating_My_Life