VBA在表数组中用不同的颜色突出显示不同的副本

Sub HighlightCells()
    Dim ws As Worksheet
    Dim rng As Range
    Dim i As Long
    Dim colors(3) As Long
    colors(1) = RGB(255, 0, 0) ' 红色
    colors(2) = RGB(0, 255, 0) ' 绿色
    colors(3) = RGB(0, 0, 255) ' 蓝色
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A1:A10") ' 假设数据在A1到A10
    
    For i = 1 To rng.Cells.Count
        Select Case rng.Cells(i).Value
            Case 1
                rng.Cells(i).Interior.Color = colors(1)
            Case 2
                rng.Cells(i).Interior.Color = colors(2)
            Case 3
                rng.Cells(i).Interior.Color = colors(3)
            Case Else
                rng.Cells(i).Interior.ColorIndex = xlNone ' 清除颜色
        End Select
    Next i
End Sub