Sheet3Range("B2")Formula = "=VLOOKUP(A2$H$2$I$52FALSE)"Nếu vùng B3 B5 cũng áp dụng ng

Chào bạn bạn xem về dòng cuối và áp dụng nhé.

 Dim i As Long
    Dim dongcuoi As Long
        dongcuoi = Sheet3.Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To dongcuoi - 1
        Sheet3.Range("B" & i + 1).Value = "=VLOOKUP(A2,bang,2,FALSE)"
    Next i

Thầy giúp xử lý dùng chỗ công thức chỗ A2 là biến trung gian.

Range("B2").Copy
    Range("B3:B8").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

Em xử lý như vậy cũng copy công thức cho các dòng khác. Ý em muốn hỏi là vẫn dùng hàm trong excel kết hợp xử lý trong VBA.

chào bạn bạn muốn sử dụng công thức trong vba bạn có thể sử dụng aplication.worksheetsfunction.vlookup() nhé.

bạn muốn dùng vlookup bạn có thể dùng vòng lặp + hàm if để tìm kết quả nhé dạng như sau:

for i = 1 to dc
 if(range("a2")).value = sheet... then
   // kết quả để trong này
 end if
next i

Thanks thầy

Cảm ơn bạn chúc bạn học tốt cùng gitiho