tôi đã dùng vlookup không ra kết quả
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("C9:C20"), Target) Is Nothing Then
If Range("C" & Target.Row) <> "" Then
Range("C" & Target.Row).Value = Application.worksheetFuntion.VLookup(Range("C" & Target.Row), Sheets("DanhMuc").Range("B:C"), 2, 0)
Else
Range("D" & Target.Row).ClearContents
End If
End If
End Sub