Các bác giúp em đoạn code này với! Cảm ơn các bác.

Liên hệ QC

namhandsome1

Thành viên mới
Tham gia
11/9/16
Bài viết
38
Được thích
3
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: Supcript out of range ở 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
 

File đính kèm

  • Book1.xlsm
    17.6 KB · Đọc: 3
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: Supcript out of range ở 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
Lỗi là do cái này ReDim kq1(1 To UBound(arr2, 1) - c, 1 To UBound(arr2, 2) - c)
Mỗi lần C tăng lên thì mảng kq sẽ bị co lại so với mảng arr2 trong khi a, b vẫn thẳng tiến theo arr2
 
Sub lap()
.......................................................................
End Sub
Bạn vi phạm nội quy tại khoản 2, mục II. Hình thức của bài viết (do đăng 4 bài có cùng nội dung). Xem nội quy ở Link sau:
https://www.giaiphapexcel.com/diendan/threads/nội-quy-diễn-đàn-cập-nhật.76052/

Tiêu đề bài viết cũng vi phạm nội quy, do đăng chung chung, không phù hợp với nội dung.

Đây là Link 3 bài kia:
https://www.giaiphapexcel.com/diendan/threads/nhờ-các-bác-giúp-em-đoạn-code-này-với-ạ-em-xin-cám-ơn.136883/

https://www.giaiphapexcel.com/diendan/threads/các-bác-giúp-em-gỡ-lỗi-đoạn-code-này-với-ạ-cảm-ơn-các-bác.136886/

https://www.giaiphapexcel.com/diendan/threads/các-bác-giúp-em-đoạn-code-này-với-ạ-cảm-ơn-các-bác.136885/
 
Lần chỉnh sửa cuối:
Sory admin, tại lúc mình đăng ko thấy báo đã đăng dc hay chưa, sau đó mình xem lại các bài viết ko thấy bài viết mình hiển thị nên nghĩ chưa đăng thành công nên lại viết lại đó add, lần đầu admin thông cảm với ạ
 
Sory admin, tại lúc mình đăng ko thấy báo đã đăng dc hay chưa, sau đó mình xem lại các bài viết ko thấy bài viết mình hiển thị nên nghĩ chưa đăng thành công nên lại viết lại đó add, lần đầu admin thông cảm với ạ
Tôi là thành viên bình thường, vì thấy vi phạm nên tôi chỉ nhắc để rút kinh nghiệm thôi.
 
Web KT
Back
Top Bottom