Sub VBAThayCongThucCacCot()
'Vùng [A1:E8] Cua Trang "Type" Duoc Gán Tên Là Table_ '
Dim CSDL As Range, WF As Object
Dim Rws As Long, J As Long
Set CSDL = Sheets("Type").Range("Table_"): ' MsgBox CSDL.Address '
Set WF = Application.WorksheetFunction
Sheets("Data").Select: Rws = [C2].CurrentRegion.Rows.Count
For J = 2 To Rws
Cells(J, "D").Value = WF.VLookup(Cells(J, "C").Value, CSDL.Offset(, 1), 2, False)
Cells(J, "E").Value = WF.VLookup(Cells(J, "C").Value, CSDL.Offset(, 1), 3, False)
Next J
End Sub