mình muốn viết hàm VLOOKUP trực tiếp trong VBA với vòng lặp có được ko

Chào bạn nếu bạn dùng vòng lặp thì không cần vlookup chỉ cần if điều kiện = ? trong vòng lặp và lấy dữ liệu là xong nhé.

For j = 2 To i

    If Range("AM" & j).Value = "160" Or Range("AM" & j).Value = "161" Or Range("AM" & j).Value = "162" Or Range("AM" & j).Value = _

    "163" Or Range("AM" & j).Value = "164" Or Range("AM" & j).Value = "360" Or Range("AM" & j).Value = "364" Then

    Range("AS" & j).Value = "=VLOOKUP(ALj,'[" & DataWB.Name & "]QUYEN SU DUNG DAT'!$G:$M,7,0)"

    Else

    If Range("AM" & j).Value = "170" Or Range("AM" & j).Value = "171" Or Range("AM" & j).Value = "172" Or Range("AM" & j).Value = _

    "173" Or Range("AM" & j).Value = "370" Or Range("AM" & j).Value = "374" Then

    Range("AS" & j).Value = "=VLOOKUP(ALj,'[" & DataWB.Name & "]PHUONG TIEN XE CO'!$G:$Z,19,0)"

    Else

    Range("AM" & j).Value = ""

        End If

    End If

    Next j

Có cách nào giải quyết vấn đề này ko ad, vì mỗi IF thì kết quả trả về là chạy Vlookup để tìm ra giá trị. 

Chào bạn bạn đẩy file lên giúp gitiho được không?