根据单元格值VBA更改范围颜色

Sub ChangeRangeColor()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要更改颜色的范围
    Set rng = Range("A1:A10")
    
    ' 遍历范围内的每个单元格
    For Each cell In rng
        ' 根据单元格的值设置颜色
        Select Case cell.Value
            Case "Red"
                cell.Interior.Color = RGB(255, 0, 0) ' 设置为红色
            Case "Green"
                cell.Interior.Color = RGB(0, 255, 0) ' 设置为绿色
            Case "Blue"
                cell.Interior.Color = RGB(0, 0, 255) ' 设置为蓝色
            Case Else
                cell.Interior.Color = RGB(255, 255, 255) ' 设置为白色
        End Select
    Next cell
End Sub