Xin hỏi cả nhà câu lệnh này có gì sai mà hệ thống bao lỗi như hình ảnh ở dưới
Sub Ktoan_thanhtoan()
Dim Rng As Range, vData1, i As Integer, lr As Integer, vData, vRs
lr = ThisWorkbook.Sheets(2).Range("L" & Rows.Count).End(xlUp).Row
For i = 2 To lr
vData = ThisWorkbook.Sheets(2).Cells(i, 42)...