Това е стандартен VBA код, но работи с текстов формат
Някой може ли да помогне?
Private Sub CommandButton1_Click()
' Филтриране на числова колона по критерии от колона в друг лист
Dim ws1, ws2 As Worksheet
Dim rngCrit As Range
Dim rngBas As Range
Dim aCrit As Variant
Set ws1 = Worksheets("база)
Set ws2 = Worksheets("критетии")
Set rngBas = ws1.Range("$A$1").CurrentRegion
Set rngCrit = ws2.Range("A2:A6")
aCrit = rngCrit.Value
rngBas.AutoFilter _
Field:=1, _
Criteria1:=Application.Transpose(aCrit), _
Operator:=xlFilterValues
End Sub
Благодаря