Giả sử dữ liệu trong giới hạn của excel..mong các thành viên hỗ trợ
dạ. e nghĩ có thể thêm ký tự đại diện * để thay thế cho các ký tự đằng sau như dùng hàm ngoài bảng tính
Trong khi chờ đợi giải pháp sao không thử code này
Sub FindText()
Dim BangB(), I, Found, FoundFirst
With Sheet2
BangB = .Range(.[A2], .[C65536].End(3)).Value
End With
For I = 1 To UBound(BangB)
Set Found = Sheet1.[E:E].Find(BangB(I, 1), , , 2)
If Not Found Is Nothing Then
FoundFirst = Found.Address
Do
Set Found = Sheet1.[E:E].FindNext(Found)
Found.Offset(, 2) = BangB(I, 2)
Found.Offset(, 3) = BangB(I, 3)
Loop Until Found.Address = FoundFirst
End If
Next
End SubSub FindText()
Dim BangA(), BangB(), I, J, Found, FoundFirst
With Sheet1
BangA = .Range(.[a2], .[A1000000].End(3)).Resize(, 8).Value
End With
With Sheet2
BangB = .Range(.[a2], .[C1000000].End(3)).Value
End With
For I = 1 To UBound(BangA)
For J = 1 To UBound(BangB)
If BangA(I, 5) Like BangB(J, 1) & "*" Then
BangA(I, 7) = BangB(J, 2)
BangA(I, 8) = BangB(J, 3)
End If
Next
Next
Sheet1.[a2].Resize(I - 1, 8) = BangA
End Subcả 2 cách của a QuangHai đều chạy tốt.cách 2 cho kết quả nhanh hơn nhiều ạh
Sub LoaiXe()
Dim BangA(), BangB()
Dim Dic As Object
Dim i As Long, L As Long, k As Long, Tmp As String
With Sheet1
BangA = .Range(.[a2], .[A1000000].End(3)).Resize(, 8).Value
End With
With Sheet2
BangB = .Range(.[a2], .[C1000000].End(3)).Value
End With
Set Dic = CreateObject("Scripting.Dictionary")
With Dic
For i = 1 To UBound(BangB, 1)
If Not .Exists(BangB(i, 1)) Then
k = k + 1
.Add BangB(i, 1), k
End If
Next
For i = 1 To UBound(BangA, 1)
For L = 1 To Len(BangA(i, 5))
Tmp = Left(BangA(i, 5), L)
If .Exists(Tmp) Then
BangA(i, 7) = BangB(.Item(Tmp), 2)
BangA(i, 8) = BangB(.Item(Tmp), 3)
Exit For
End If
Next
Next
End With
Sheet1.[a2].Resize(i - 1, 8) = BangA
End SubChiẻ là tham khảo thôi mà anh. Nhưng mà em nghĩ tốc độ cũng không đến nỗi nào bởi nó chỉ duyệt qua số phần tử trong 1 chuỗi rồi đối chiếu với Dic nếu thỏa thì thoát ngay.
Vòng lặp bảng B nằm trong vòng lặp bảng A. Vòng lặp B có thể dùng exit for hoặc do loop.
Nếu mã xe có dạng như ví dụ thì có thể sort bảng B theo thứ tự giảm dần rồi dùng vòng lặp. Khi đó mã LC3C1 sẽ xuất hiện trước LC3C, có thể exit for ở LC3C1.
Đúng rồi, uống với nhau mấy chén rồi mà.
Dạ.. topic này e mượn tình huống từ 1 topic khác đã nêu ở #1 để làm bài học cho mình. Thực tế chưa gặp trường hợp này bao giờ và cũng ko biết dữ liệu thật mặt mũi thế nào ạh, hìVâng, ấy là đoán vậy thôi anh chứ dữ liệu thất mình có biết mặt mũi nó như thế nào đâu. Cứ để chủ Topic thử sai thì lại hỏi.
Dạ e cảm ơn a
