Lỗi overflow (run-time error '6') của VBA - nhờ các anh chị giúp đỡ

[enzo6886]

Hi anh chị,
Hiện tại em đang làm code VBA mục đích là xuất file có điều kiện ở cột tích V, sau đó xuất sang 1 sheet có các trường thông tin em cần làm.
Hiện tại số hàng là gần 100.000 dòng, sau này khi nhập liệu sẽ hơn nữa. Nhưng em kéo hàm mảng thì nó bị lỗi này, em có tham khảo các thông tin trên mạng nhưng không xử lý được.
Mong anh chị có ai hiểu rõ lỗi này giúp đỡ em ạ.

Em xin chân thành cảm ơn!

 

[huhumalu]

Chưa có file nên cũng không biết xử như nào.
Bạn chép cả code lên đây cho mọi người tư vấn. Chứ không lẽ gõ lại sao
Lỗi overflow thì do tràn bộ nhớ, nhưng nhìn code của bạn thì bạn thử
Dùng trực tiếp giá trị của Sheet luôn, nạp vào mảng và trả xuống lại để làm gì đâu ?

With Sheets("Tên")
 
    For i = 1 To lrl

        If .Range("E"&i ).value= "V" Then
            .Range("B"&i ) = .Range("A"&i )
            .Range("Y"&i ) = .Range("F"&i )
            ...
        End If
     
    Next i
 
End With

 

[mrfeed87]

Hi anh chị,
Hiện tại em đang làm code VBA mục đích là xuất file có điều kiện ở cột tích V, sau đó xuất sang 1 sheet có các trường thông tin em cần làm.
Hiện tại số hàng là gần 100.000 dòng, sau này khi nhập liệu sẽ hơn nữa. Nhưng em kéo hàm mảng thì nó bị lỗi này, em có tham khảo các thông tin trên mạng nhưng không xử lý được.
Mong anh chị có ai hiểu rõ lỗi này giúp đỡ em ạ.

Em xin chân thành cảm ơn!



View attachment 297941

Đó là lỗi tràn bộ nhớ
Bạn để mảng nguồn từ cột D đến cột E tức là mảng nguồn có 2 cột, mà ở dưới bạn lại khái thác nó ở tận cột thứ 29 thì nó báo lỗi tràn đúng rồi
Mảng nguồn bạn khai báo có 2 cột thôi lấy đâu ra cột 4, 5, 21, 27, 28, 29

 

[befaint]

Khai báo biến còn be bét, chắc lại học từ du túp rồi.


Thông báo lỗi mà không chịu nhấn Debug xem đứt gánh ở dòng nào để tìm lỗi.

 

[zzzsxxx01]

Khai báo biến nhìn chán thật.

 

[VetMini]

Đó là lỗi tràn bộ nhớ
Bạn để mảng nguồn từ cột D đến cột E tức là mảng nguồn có 2 cột, mà ở dưới bạn lại khái thác nó ở tận cột thứ 29 thì nó báo lỗi tràn đúng rồi
Mảng nguồn bạn khai báo có 2 cột thôi lấy đâu ra cột 4, 5, 21, 27, 28, 29

Chắc hôn?
Lỗi mảng thiếu dòng/cột là error 9 - Subscript out of range.

Error 6 - Overflow là lỗi tràn ngăn chứa. Xảy ra khi biến được nạp trị mà nó không chứa nổi. Ví dụ biến được khai báo là Integer mà nạp cho nó trị cỡ 50000.

 

[mrfeed87]

Chắc hôn?
Lỗi mảng thiếu dòng/cột là error 9 - Subscript out of range.

Error 6 - Overflow là lỗi tràn ngăn chứa. Xảy ra khi biến được nạp trị mà nó không chứa nổi. Ví dụ biến được khai báo là Integer mà nạp cho nó trị cỡ 50000.

Tôi thấy bạn ấy báo Khai lr1 là variant, max giá trị rồi lên nghĩ nhanh thế

 

[enzo6886]

Cảm ơn các anh chị giúp đỡ, em mới học VBA nên có gì sau này nhờ các anh chị giúp đỡ. File em làm bị lỗi nên em thay file thì chạy được rồi ạ.