1,600万色を56色に減色する

とりあえずセルの背景色を減色した。深く考えない！

Sub カラーインデックス56色に書き換え()
    Dim r As Range
    For Each r In ThisWorkbook.ActiveSheet.UsedRange
        With r.Interior
            If .ColorIndex <> xlNone Then
                .ColorIndex = .ColorIndex
            End If
        End With
    Next
End Sub

以上。