Mình bị tai nạn gãy tay không gõ đươc nhiều. mổ cò được vậy tham khảo nha
Option Explicit
Private Sub TextBox1_Change()
Dim Arr
Arr = Application.Transpose(S2.Range("D2").CurrentRegion)
Arr = Filter(Arr, Me.TextBox1.Text, 1)
Me.ListBox1.List() = Arr
End Sub
Private Sub UserForm_Initialize()
Me.ListBox1.List() = WorksheetFunction.Transpose(S2.Range("D2").CurrentRegion)
End Sub