XIN MÃ CODE THAY HÀM VLOOKUP

Liên hệ QC

nasalem

Thành viên hoạt động
Tham gia
12/11/13
Bài viết
192
Được thích
4
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:

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 ạ
 

File đính kèm

  • TONG HOP.OK - Copy.xlsx
    5.3 MB · Đọc: 28
Nghiên cứu con rùa này trước:
PHP:
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
 
Web KT
Back
Top Bottom