XIN MÃ CODE THAY HÀM VLOOKUP (1 người xem)

[nasalem]

Các anh chị hiểu biết về VBA tư vấn và cho em xin công thức hay mã code của file này với ạ. em xin gửi file đính kèm
Chân thành cảm ơn ạ

Bài đã được tự động gộp: 14/12/18

Các anh chị hiểu biết về VBA tư vấn và cho em xin công thức hay mã code của file này với ạ. em xin gửi file đính kèm
Chân thành cảm ơn ạ

 

[SA_DQ]

Nghiên cứu con rùa này trước:

Sub ThayVLOOKUP()
 Dim Rws As Long, J As Long, W As Long
 Dim Rng As Range, sRng As Range
 
 Rws = [D65500].End(xlUp).Row
 Set Rng = [AG9].Resize(Rws)
 For J = 9 To Rws
    Set sRng = Rng.Find(Cells(J, "D").Value, , xlFormulas, xlWhole)
    If Not sRng Is Nothing Then
        Cells(J, "AD").Value = sRng.Offset(, 1).Value
    End If
 Next J
End Sub