Hình như là không, nhưng cũng có thể dùng InStr hoăc Like để trích số liệu
Uh nhưng vấn đề ở đây là.Dữ liệu gốc rất lớn.Nếu duyệt theo từng phần tử thì sẽ chậm.Nên không ổn lắm.
Dictionary dùng hask key để dò bảng. Chuyện hash tương đối chưa nghe nói tới.
Tìm lấy cái gì? Có 10 cái macth thì lấy cả 10?
Đầu tiên hết phải biết tiêu chuẩn so sánh.
Có lẽ cách nạp dic chưa phù hợp. Bạn gửi file lên xem sao
Như vầy chả liên quan gì đến cách nạp cả:
Thì là cách tạo key khi nạp dic đó bác.
Thì là kiểu kiểm tra tương đối đó bác.Ví dụ của bác ở trên kiểm tra xem "*tite*" đã có trong dic chưa.
Theo cách nầy thì Dic dư thừa
Anh nói ngắn gọn mà ẩn ý cao siêu quá làm người ngu dốt như tôi đọc cũng không hiểu(dư thừa gì ạ)? Nếu không chê kẻ tầm thường thì anh có thể diễn đạt dễ hiểu hơn không ạ?
Trên trang Web, nạp dữ liệu vào Dic rồi Join dic.keys để tạo 1 chuổi sao đó dùng hàm instr để xét
Bây giờ vẫn là 00000000000000000 phần tử thì hỏi phương án để làm gì?Nếu vậy thì lại dùng hàm instr rồi.Mà nếu dữ liệu lớn tầm 100k phần tử nối lại với nhau chưa chắc đã chạy được..
Anh Hiếu có phương án nào giải quyết những bài như thế này không ạ.
Tôi đã hỏi "dùng để làm gì" mà chủ thớt cứ mập mập mờ mờ.
Anh xem giúp em ví dụ bên dưới ạ.
Nếu đúng thế, và tìm 1 lần thì cứ FOR, với like, và dùng wildcard là nhanh Hoặc Filter thì nhanh hơn nữa
Nếu dùng FOR bình thường 2 vòng lặp lồng nhau thì với dữ liệu của em đưa ra nó là :30.000 * 15.000 vòng lặp cũng lâu lắm anh à. Còn 2 cái này dùng wildcard là nhanh Hoặc Filter thì nhanh hơn nữa em chưa biết dùng anh hướng dẫn em.Hoặc viết code mẫu hộ em ạ. Em cảm ơn.
vẫn chưa hiểu yêu cầu là tìm gì, sao tìm?
Sub Instr_Like()
Dim Arr0, Arr1, i
On Error Resume Next
Arr0 = Sheet1.Range("a1").CurrentRegion
Arr1 = Sheet1.Range("d1").CurrentRegion
With CreateObject("Scripting.dictionary")
For i = 2 To UBound(Arr1)
.Item(Arr1(i, 1)) = ""
Next i
For i = 2 To UBound(Arr0)
.Remove Arr0(i, 1)
Next i
Sheet1.Range("g1") = .Count
Sheet1.Range("g2").Resize(.Count, 1) = Application.Transpose(.keys)
End With
End Sub
