Any way to have Similar function as Text Filter function in excel

Please find the reference

Sub filter()
    Range("A1:H" & Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter Field:=4, Criteria1:="<>"
End Sub

it will filter in 4th column change column number as you want,

image

Thanks

2 Likes