我将使用.Font.Color剔除RGB值，但是您可以根据需要将其更改为ColorIndex.

I'd use .Font.Color to cull the RGB values, but you can change it to ColorIndex if you like.

您可以调整此策略:

Sub CellColors2CSV()
    Dim j&, k&, c$, r As Range
    Set r = ActiveSheet.Cells(1, 1)
    Do
        j = Len(r)
        k = InStr(k + 1, r, ",")
        If k Then j = k - 1
        c = c & "," & r.Characters(j, 1).Font.Color
    Loop Until k = 0
    c = Mid$(c, 2)
    MsgBox c
End Sub