Lọc dữ liệu hay

Private Sub TextBox1_Change()

ActiveSheet.ListObjects("Table13").Range.AutoFilter Field:=2, Criteria1:="*" & [G1] & "*"

End Sub

Ghi chú: Code của video đây ạ: 'ActiveSheet.ListObjects("Tên Table").Range.AutoFilter Field:=Cot can loc du lieu, Criteria1:="*" & [ô LinkedCell] & "*"