Excel宏需求：指定范围内特定列空白则删除整行

数据集示例 #

A    B    C    D    E    F    G    H
21  X
22       X
23            X
24       X    X
25                 X    X
26  X    X    X    X

需求说明 #

• 给定数据范围（如A21:H26）
• 指定需要检查的列（如A、B、C列）
• 若指定列中任意一列为空白单元格，删除整行
• 按规则，上述数据集中仅第26行会保留

问题代码（逻辑混乱） #

Sub DeleteEmptyRowsInRange()
  
    myarray = Range("A21:H30")
  
    For r = 1 To UBound(myarray)
    
        For c = 1 To UBound(myarray, 2)
    
            If c = 4 Or c = 6 Or c = 13 Then
                If Trim(Cells(r + 1, c)) = "" Then rows(r).EntireRow.Delete
            End If
    
        Next c
    
    Next r
  
End Sub

修正后的解决方案 #

Sub DeleteRowsWithBlanksInSpecifiedColumns()
    Dim targetRange As Range
    Dim checkColumns As Variant
    Dim i As Integer
    Dim currentRow As Range
    Dim col As Variant
    Dim cell As Range
    Dim hasBlank As Boolean
    
    ' 自定义参数：数据范围 + 要检查的列（支持列名或列号）
    Set targetRange = ThisWorkbook.ActiveSheet.Range("A21:H26")
    checkColumns = Array("A", "B", "C") ' 也可改为 Array(1, 2, 3) 用列号
    
    ' 从下往上遍历，避免删除行后索引错位
    For i = targetRange.Rows.Count To 1 Step -1
        Set currentRow = targetRange.Rows(i)
        hasBlank = False
        
        ' 检查当前行的指定列是否存在空白
        For Each col In checkColumns
            Set cell = currentRow.Cells(1, col)
            If Trim(cell.Value) = "" Then
                hasBlank = True
                Exit For ' 发现空白立即终止该行检查
            End If
        Next col
        
        ' 存在空白则删除整行
        If hasBlank Then
            currentRow.EntireRow.Delete
        End If
    Next i
End Sub

关键说明 #

• 遍历方向：从下往上处理行，解决删除行后后续行索引偏移的问题
• 灵活参数：targetRange和checkColumns可直接修改，适配不同场景
• 效率优化：只要发现指定列有空白，立即停止检查当前行
• 空格处理：用Trim()排除单元格仅含空格的情况

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