Чтобы решить эту проблему, вы можете использовать приведенный ниже код VBA.
Private Sub TextBox1_Change() Dim Ray As Variant If Len(TextBox1.Value) = 0 Then Sheet1.AutoFilterMode = False Else If Sheet1.AutoFilterMode = True Then Sheet1.AutoFilterMode = False End If Sheet1.Range("A2:F" & Rows.Count).AutoFilter field:=1, Criteria1:="*" & TextBox1.Text & "*", Operator:=xlFilterValues End If End Sub
NB. Это изменение, которое я сделал в коде VBA Criteria1:="*" & TextBox1.Text & "*"
вместо Ray
переменной.