VBA循环处理Excel数据时如何删除整行但保留I列

原有代码存在的问题 #

• 调用EntireRow.Delete会直接删除整行，会同步删除I列数据，不符合需求
• 正序循环删除后重置i=1的写法效率极低，数据量稍大就会卡顿，还容易出现行号偏移导致的漏判问题
• 存在语法错误：Entire row中间不能有空格，正确写法为EntireRow

优化后实现代码 #

Sub DeleteMatchRowsKeepColumnI()
    Dim i As Long
    Dim lastRow As Long
    Dim matchVal As Variant
    
    ' 提前读取匹配值，避免循环中重复读取工作表提升效率
    matchVal = Sheets("Report1").Range("Q5").Value
    ' 获取Database1表A列最后一行行号，明确循环范围
    lastRow = Sheets("Database1").Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 倒序循环，避免删除行导致的行号偏移漏判
    For i = lastRow To 1 Step -1
        If Sheets("Database1").Range("A" & i).Value = matchVal Then
            ' 仅删除当前行除I列外的A-H、J-K列内容，保留I列所有数据和格式
            Sheets("Database1").Range("A" & i & ":H" & i & ",J" & i & ":K" & i).Delete Shift:=xlUp
            ' 若不需要整行上移、仅清空匹配行对应内容，替换为下面的代码即可
            ' Sheets("Database1").Range("A" & i & ":H" & i & ",J" & i & ":K" & i).ClearContents
        End If
    Next i
End Sub

关键说明 #

无法在真·删除整行的前提下保留I列数据，上述代码的实现逻辑是仅删除匹配行除I列外的其余列内容，其他行对应列会自动上移，效果等价于“删除了匹配行但I列留在原位”。如果需要保留I列的公式、格式、批注等属性，上述代码不会修改I列任何内容，完全满足需求。

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