Lọc tồn cuối bị lỗi

[NguyenthiH]

Em có file này, sao em nhấn nút lọc tồn cuối thì bị lỗi.
Mong các anh chị giúp đỡ.
P/S: code trong file là của Thầy Ba Tê, em có chỉnh lại, nhưng chắc sai chổ nào nên bị lỗi.

 

[Ba Tê]

Em có file này, sao em nhấn nút lọc tồn cuối thì bị lỗi.
Mong các anh chị giúp đỡ.
P/S: code trong file là của Thầy Ba Tê, em có chỉnh lại, nhưng chắc sai chổ nào nên bị lỗi.

Lỗi khai báo mảng dArr(). Tự chỉnh code thì cũng tự xem lại.

 

[NguyenthiH]

Thầy giúp em với, em không rành VBA, em chỉ chỉnh lại mấy chổ tham chiếu thôi, như sArr(i, 6) thành sArr(i,3) thôi .

Txt = sArr(i, 1) & "#" & sArr(i, 3) '---> chỉnh chổ này
lỗi vàng ngay dòng này:
sArr = Sheets("Nhap").Range("E4", Sheets("Nhap").Range("E4").End(xlDown)).Resize(, 5).Value
    R = UBound(sArr)
    For i = 1 To R
        Txt = sArr(i, 1) & "#" & sArr(i, 3)
        If Not Dic.Exists(Txt) Then
            k = k + 1
            Dic.Item(Txt) = k
            dArr(k, 1) = k
            For j = 1 To 4
                dArr(k, j + 1) = sArr(i, j)
            Next j
            dArr(k, 7) = sArr(i, 5) '--->>loi vang

Bài đã được tự động gộp: 12/6/19

À!! em chỉnh được rồi.
Sao dArr có 9 cột mà lại khai là 10

ReDim dArr(1 To R * 2, 1 To 10)

và số 2 ở trên là gì vậy,mong Thầy giải thích dùm em.

 

[NguyenthiH]

Thầy Ba Tê giải thích dùm em số 2 có nghĩa là gì ạ.