Sub TimKiem()
Dim Rng As Range, sRng As Range
Dim MyAdd As String: Const TB As String = "Không Có"
Dim Rws As Long
Rws = [C2].CurrentRegion.Rows.Count
Set Rng = [C1].Resize(Rws)
[I2:J2].Value = TB
[M2].Resize(, 2).Value = Space(0)
Set sRng = Rng.Find([K2].Value, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
If sRng.Offset(, 1).Value = [L2].Value Then
[I2:J2].Value = sRng.Offset(, -2).Resize(, 2).Value
[M2:N2].Value = sRng.Offset(, 2).Resize(, 2).Value
Exit Do
End If
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
Else
[K2].Value = TB
End If
End Sub