基于空白或高亮条件删除特殊单元格的VBA宏问题求助

你录制的宏依赖固定单元格地址，一旦报表行数变化就失效，核心问题是没有基于单元格特征动态定位目标。以下是适配任意行数报表的通用代码：

1. 删除空白单元格（删除后内容左移） #

适用于删除行内空白单元格，让右侧内容自动左移：

Sub DeleteBlankCells()
    Dim targetRange As Range
    ' 自动识别工作表已使用区域，也可指定范围如Range("A1:D200")
    Set targetRange = ActiveSheet.UsedRange
    
    ' 反向遍历避免删除后索引错乱
    Dim i As Long, j As Long
    For i = targetRange.Rows.Count To 1 Step -1
        For j = targetRange.Columns.Count To 1 Step -1
            If IsEmpty(targetRange.Cells(i, j)) Then
                targetRange.Cells(i, j).Delete Shift:=xlToLeft
            End If
        Next j
    Next i
End Sub

2. 删除背景高亮单元格（以黄色为例） #

如果要删除特定背景色的单元格，先获取目标颜色值（方法见下方说明），再用以下代码：

Sub DeleteHighlightedCells()
    Dim targetRange As Range
    Set targetRange = ActiveSheet.UsedRange
    ' 替换为你的高亮单元格颜色值，示例为黄色
    Dim highlightColor As Long
    highlightColor = RGB(255, 255, 0)
    
    ' 反向遍历处理
    Dim i As Long, j As Long
    For i = targetRange.Rows.Count To 1 Step -1
        For j = targetRange.Columns.Count To 1 Step -1
            With targetRange.Cells(i, j)
                If .Interior.Color = highlightColor Then
                    .Delete Shift:=xlToLeft ' 若需删除后内容上移，改为xlUp
                End If
            End With
        Next j
    Next i
End Sub

3. 同时删除空白和高亮单元格 #

一次性处理两种情况的组合代码：

Sub DeleteBlankAndHighlightedCells()
    Dim targetRange As Range
    Set targetRange = ActiveSheet.UsedRange
    Dim highlightColor As Long
    highlightColor = RGB(255, 255, 0) ' 替换为实际高亮颜色
    
    Dim i As Long, j As Long
    For i = targetRange.Rows.Count To 1 Step -1
        For j = targetRange.Columns.Count To 1 Step -1
            With targetRange.Cells(i, j)
                If IsEmpty(.Value) Or .Interior.Color = highlightColor Then
                    .Delete Shift:=xlToLeft ' 按需修改删除方向
                End If
            End With
        Next j
    Next i
End Sub

关键注意事项： #

• 反向遍历：删除单元格会改变后续单元格位置，从最后一行/列开始遍历，避免漏处理或索引错误。
• 获取高亮颜色值：选中目标高亮单元格，打开VBA编辑器的「立即窗口」（Ctrl+G），输入?ActiveCell.Interior.Color回车，得到的数值替换代码中的RGB值即可。
• 删除方向调整：根据需求选择xlToLeft（行内左移）或xlUp（列内上移）。

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