Nhờ các bác giúp em đoạn code này với ạ! Em xin cám ơn!

[namhandsome1]

Sub lap()
Dim a, b, c As Long
Dim endrow As Long
Dim kq1()
endrow = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
arr2 = Sheet2.Range("A1:O" & endrow).Value
For c = 1 To 14
ReDim kq1(1 To UBound(arr2, 1) - c, 1 To UBound(arr2, 2) - c)
For a = 1 To (UBound(arr2, 1) - 1)
For b = 2 To UBound(arr2, 2)
If arr2(a, b) <> "" Then
kq1(a, b) = arr2(a, b) 'Nó báo lỗi dòng này
End If
Next b
Next a
Sheet2.Range("A" & (c * 17)).Resize(UBound(arr2, 1) - c, UBound(arr2, 2) - c) = kq1
Next c
End Sub

 

[truongvu317]

Ngon! Đăng tận 3 cái thớt liên quan tới vấn đề này, chuẩn bị bị ăn báo cáo đi, chắc sẽ bị khóa mấy cái thớt mất.
Code dùng để làm gì thì phải nói rõ ra, không ai rảnh đi đoán chức năng của code.
Lỗi trên là do truy xuất những phần tử không có trong mảng KQ1, kiểu như KQ1 là mảng 10* 10 nhưng lại truy xuất KQ1( 11,11).