删除包含某种填充颜色的单元格的VBA代码？

Sub DeleteCellsByColor()
    Dim cell As Range
    Dim color As Long
    
    ' 设置要删除的填充颜色
    color = RGB(255, 0, 0) ' 这里以红色为例
    
    ' 循环遍历所有单元格
    For Each cell In ActiveSheet.UsedRange
        ' 检查单元格的填充颜色是否与指定颜色相同
        If cell.Interior.Color = color Then
            ' 删除包含指定颜色的单元格
            cell.Delete Shift:=xlUp
        End If
    Next cell
End Sub