ca还可以使用数据功能区上的数据-->过滤器过滤该表，如果您认为有必要，也可以使用VBA进行过滤。这完全取决于你在过滤什么，以及如何为用户实现这一点。你应该使用条件格式，而不是VBA。你也应该考虑不使用VBA来过滤。这不是Excel应该如何工作，你应该使用

---

ca还可以使用数据功能区上的

数据-->过滤器

过滤该表，如果您认为有必要，也可以使用VBA进行过滤。这完全取决于你在过滤什么，以及如何为用户实现这一点。你应该使用条件格式，而不是VBA。你也应该考虑不使用VBA来过滤。这不是Excel应该如何工作，你应该使用条件格式，而不是VBA。你也应该考虑不使用VBA来过滤。这不是excel的工作方式

Private Sub Worksheet_Change(ByVal Target As Range)

    Set i = Intersect(Target, Range("A1:Z10000"))
    If Not i Is Nothing Then
        Select Case Target
            Case "CLR": NewColor = 3
            Case "CTS": NewColor = 4
            Case "OMS": NewColor = 5
            Case "ENT": NewColor = 6
            Case "O&G": NewColor = 7
            Case "HND": NewColor = 8
            Case "SUR_ONCO": NewColor = 9
            Case "NES": NewColor = 10
            Case "OTO": NewColor = 11
            Case "PLS": NewColor = 12
            Case "BREAST": NewColor = 13
            Case "UGI": NewColor = 14
            Case "HPB": NewColor = 15
            Case "VAS": NewColor = 16
            Case "H&N": NewColor = 17
            Case "URO": NewColor = 18
            Case "OPEN": NewColor = 19
        End Select
        Target.Interior.ColorIndex = NewColor


    End If


End Sub

Private Sub TextBox1_Change()

    Dim Text

    Text = TextBox1.Value

    If Text <> "" Then
        Sheet2.Range("C7:AV26").AutoFilter Field:=1, Criteria1:="Text,_", VisibleDropDown:=False

    Else:
        Sheet2.AutoFilterMode = False

    End If

End Sub

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$3" Then
        Dim legendWS As Worksheet
        Dim legendCell As Range
        Set legendWS = ThisWorkbook.Sheets("Legend")

        Set legendCell = legendWS.Range("C2:C6").Find(Target.Value)
        If Not legendCell Is Nothing Then
            Target.Interior.Color = legendCell.Interior.Color
        End If
    End If
End Sub