Excel vba删除无填充颜色单元列 1、b2:X5区域 2、这区域内某列某单元格有填

Excel vba删除无填充颜色单元列 1、b2:X5区域 2、这区域内某列某单元格有填

程序如下：
Sub 宏()
Dim i As Integer, j As Integer, k As Integer
For i = 2 To 24
    k = 0
    For j = 2 To 5
        If Cells(j, i).Interior.ColorIndex <> -4142 Then
            k = k + 1
        End If
    Next
    If k = 0 Then
        Range(Cells(2, i), Cells(5, i)).Select
        Selection.ClearContents
    End If
Next
End Sub