Giúp mình sửa code Lọc bị lỗi khí số lượng ký tự nhiều

[binhthuong123]

Chào cả Nhà GPE !
Em có dùng Đoạn code lọc sau của anh Bate . Code lọc dạng mãng rất là nhanh. nhưng đang bị 1 vấn đề khi Số lượng ký tự của 1 ô nào đó mà >=911 ký tự thì nó Lọc không chính xác ( em dã test trên máy của em dùng Excel 2003 ). Tại vì file của em có khi Len ( tên hàng ) = 1500 số lượng ký tự thì nó lọc sai hết. Giờ em muốn sửa lại miển sao lọc khi tên hàng < 2000 ký tự là OK. rất mong mọi người giúp đở. Mình xin chân thành cảm ơn !

p/S: rất mong thầy Ndu và anh Bate ra tay giúp em vì code này là của mấy Thầy.

Sub LOCcoban()
Dim sArr(), dArr(), I As Long, K As Long, R As Long, Col As Long
sArr = Range("B4:D16").Value ' DU LIEU DAU VAO
R = UBound(sArr)
ReDim dArr(1 To R, 1 To 3) ' 3 COT
For I = 1 To R
    If sArr(I, 1) = "a" Then '
        K = K + 1
        For Col = 1 To 3 ' 3 COT
            dArr(K, Col) = sArr(I, Col)
        Next Col
    End If
Next I
' OUTPUT
On Error Resume Next
Range("J5").Resize(R, 3).ClearContents
Range("J5").Resize(K, 3) = dArr ' 3 COT
End Sub

Nay

 

[VetMini]

Cảm ơn bác đã giải thích. Còn tại sao vẫn dùng Excel 2003 thì có lý do của nó ( ví dụ như Nhà bác là nhà Tranh thì có nên gắn Máy lạnh không ) Nên có những chuyện có lý do người ta mới làm, Còn chuyện dùng 2016 hay 365 thì ai mà chả biết nó Mạnh hơn. Excel 2003 cho tốc độ xữ lý nhanh, Lưu file nhanh, cài đặt chiếm ít bộ nhớ.....và máy có cấu hình Cùi bắp cài củng được...Nói sơ sơ vậy bác hiểu rồi chứ

Mục đích của phiên bản mới, của một đóng RAM là để sử lý những trường hợp phức tạp.
Muốn "cùi bắp cũng được" thì phải tự biết an phận với dưới 1000 ký tự. Đua đòi trên ba mớ chuỗi dài sọc thì dĩ nhiên nó chịu không nổi! TỰ mâu thuẫn mà còn bảo ngừoi khác hiểu với không hiểu.
Nhà tranh còn bày đặt chất củi thui bò nên cháy là đáng. May là không cháy cả nhà hàng xóm. (mà biết đâu đã cháy cả xóm rồi - file xls chứa vi rút làm sao biết?)

 

[VetMini]

Nam mô a zi đà fật! Bần tăng người trần mắt thịt, sao hiểu được những chuyện động trời như vầy!

Phải nhìn nhận bác kiên nhẫn thật. Bác biết họ ăn nói ngược ngạo thế này thì còn cố gắng làm chi. Chính chủ thớt cũng dùng nit mới để hỏi bài vì sợ nit cũ bị tẩy chay.
Tôi trả lời ở bài #18 là vì thôi kệ một lần, khỏi mất công anh chị em thắc mắc tại sao chủ thớt cứ ngoan cố con số 911.

 

[Lê Duy Thương]

Phải nhìn nhận bác kiên nhẫn thật. Bác biết họ ăn nói ngược ngạo thế này thì còn cố gắng làm chi. Chính chủ thớt cũng dùng nit mới để hỏi bài vì sợ nit cũ bị tẩy chay.
Tôi trả lời ở bài #18 là vì thôi kệ một lần, khỏi mất công anh chị em thắc mắc tại sao chủ thớt cứ ngoan cố con số 911.

Nick này nói chuyện rất là mất lịch sự . Viết bài có những từ ngữ xúc phạm . Tôi cho vào black list rồi.