Vba 代码未执行。如果我使用color index=3或2，它会工作，但在使用RGB时不会工作

.ColorIndex

需要一个整数值。如果要使用RGB，请使用

.Color

。

ColorIndex不接受RGB请查看此处的完整颜色索引表：

---

颜色索引是指某些调色板中颜色的索引，而不是RGB颜色。不要每次调用

RGB

函数，而是将其返回值存储在

Long

变量中：

Dim lngColor&:lngColor=RGB（153204255）：/*您的代码*/。Interior.Color=lngColor

Sub Clearall()

 Dim Ws As Worksheet
    Set Ws = ThisWorkbook.Sheets("Sheet1")

        Dim Clrallblue As Range
    Set Clrallblue = Range("C14:I19")

    For Each Cell In Clrallblue.Cells
        With Cell
            .ClearContents
            .Borders.LineStyle = XlLineStyle.xlContinuous
            .Interior.ColorIndex = RGB(153, 204, 255)

        End With
    Next Cell


End Sub