Thầy ơi có thể sử dụng vòng lặp cho công thức đk k ah. Ví dụ
dim i as long
for i = 1 to 7
range(“f” & i + 15).formula = “=vlookup(“f” & i + 15,I16:J18,2)”
next i
end sub
Không cần thiết phải dùng phương pháp gán công thức theo vòng lặp bạn nhé, vì công thức thường dùng theo dạng Filldown (sao chép từ trên xuống). Nên bạn chỉ cần đặt công thức vào ô đầu tiên, sau đó Filldown là được.
Ví dụ:
Gán hàm VLOOKUP vào vùng F16:F23, trong đó hàm VLOOKUP sẽ:
- tham chiếu theo cột D,
- tới bảng dữ liệu trong Sheet BangDuLieu, vùng A2:D100,
- kết quả lấy theo cột thứ 2,
- Phương pháp tìm kiếm chính xác
Hàm sẽ viết dạng:
Sub GanHam()
Range("F16").Formula = "=VLOOKUP(D16, BangDuLieu!A2:D100, 2, 0)"
Range("F16:F23").Filldown
End Sub
Ngoài ra bạn có thể bỏ công thức, chỉ lấy kết quả hàm vlookup bằng cách thêm đoạn lệnh sau (thêm sau khi filldown):
Range("F16:F23").Value = Range("F16:F23").Value