Thấy bạn này chịu khó học ghê, 1-2 giờ sáng vẫn vào đọc...
------------
Khi If dieu_kien Then ket_qua viết trên cùng một dòng thì không cần End If, tức là đã kết thúc cấu trúc If Then rồi.
Vậy:
If Application.WorksheetFunction.VLookup(Cells(i, 2), n, 3, 0) = False Then Cells(i, 3) = 0
đã kết...