Bạn thử code dưới đây xem có đúng không?
Private Sub ComboBox1_Change()
Dim Lr&, Str$
Dim Rng As Range
Dim Arr(1 To 100, 1 To 2), k&, khoa$
Str = ComboBox1.Value
With Sheets("Sheet11")
Lr = .Range("A10000").End(xlUp).Row
Set Rng = .Range("A2:B" & Lr).Find(What:=Str...