Hai ví dụ cuối của bạn bị sai, lần sau ví dụ cho chuẩn nhé.
dạ, không sai đâu ạ, nhiều lúc tên sheet 2 nó vẫn khác ,như 2 ví dụ anh bảo ạ
Bạn thử xóa từ đầu tiên của hai dòng cuối xem, mình chỉ biết làm đến vậy thôi, hơn nữa là ngoài khả năng mất rồi.
vâng anh, em muốn tìm dò chứa chữ cơ, Vd Nguyễn Thị Ngọc, thì Ngọc Hà, văn ngọc, trần thị ngọc.... có điểm chung là ngọc
Vậy nếu trùng thì sẽ sai mã ngay, ý tưởng của bạn 99,99% là không khả thi.
do dữ liệu của em, 2 người nhập (1 người nhập gõ kiểu này, 1 người nhập kiểu khác), lên em thử lên đây hỏi xem anh chị trong nhóm có code VBA nào có thể dò tìm được không ạ
Dò thì chắc chắn thấy được và chắc chắn là trùng sẽ sai mã.
cũng khó anh nhỉ, ý tưởng của em là sẽ tìm 2 cột tên sản phẩm số chữ giống nhau trùng nhau nhiều nhất, thì lấy dữ liệu hàng đấy ạ
Phải triệt để từ trứng nước chứ dọn rác thế này có phải tự làm khổ bản thân không
Tóm lại trong công ty của bạn thằng đi làm thuê muốn làm thế nào cũng phải chấp nhận? Tôi mà là chủ thì tôi đẩy ngay ra đường. Còn nếu là nhân viên thì tôi báo cáo với sếp. Nếu sếp dung túng thì tôi cố chuyển việc. Ở lại chỉ là bất đắc dĩ thôi.
Vâng. Anh ạ .nhiều lúc bực mình lắm
Vâng anh. Nhiều lúc khổ lắm anh ạ. Chỉ gõ thêm "-" là sai bét. Lại phải dò thủ công anh ạ
Nếu nhiệm vụ của bạn thì bạn nên có qui định và nhân viên phải làm theo. Mình thông cảm cho họ nhưng họ phải có kỷ luật.
Có những chuyện không như mơ, quản trị doanh nghiệp phải xử lý rừng dữ liệu từ nhiều nguồn khác nhau thường không đồng nhất, lúc thừa lúc thiếu là chuyện cơm bữa. Dữ liệu đến từ các đối tác kinh doanh không thể theo chuẩn chung, ngay cả trong nội bộ doanh nghiệp từng bộ phận thường có cách xử lý dữ liệu riêng và mối quan hệ giữa các cá nhân khá phức tạp nên dữ liệu thường khác nhau, muốn dữ liệu thống nhất phải bỏ ra chi phí và thời gian khá lớn để xây dựng hệ thống quản trị nguồn lực ERP
Sub XYZ()
Dim aData(), aSP(), res(), arr(), S, aL, aU, sp$
Dim srData&, srSP&, N&, D&, i&, j&, k&, r&
aL = Array(0, 1, 0, 1, 0, 2, 3, 0, 2, 1, 4, 0, 3, 1, 2)
aU = Array(0, 0, 1, 1, 2, 0, 0, 3, 1, 2, 0, 4, 1, 3, 2)
N = UBound(aL)
With Sheets("Sheet1")
aData = .Range("A2", .Range("B" & Rows.Count).End(xlUp)).Value
End With
With Sheets("Sheet2")
aSP = .Range("A2", .Range("A" & Rows.Count).End(xlUp)).Value
End With
srData = UBound(aData): srSP = UBound(aSP)
ReDim res(1 To srSP, 1 To 2)
For i = 1 To srData
aData(i, 1) = Application.Trim(Replace(aData(i, 1), "!", "! "))
Next i
For i = 1 To srSP
S = Split(Application.Trim(Replace(aSP(i, 1), "!", "! ")), " ")
D = UBound(S)
For j = 0 To N
If D - aL(j) - aU(j) > 0 Then
ReDim arr(aL(j) To D - aU(j))
For k = aL(j) To D - aU(j)
arr(k) = S(k)
Next k
sp = Join(arr, " ")
For r = 1 To srData
If InStr(1, aData(r, 1), sp, vbTextCompare) > 0 Then
res(i, 1) = aData(r, 2)
res(i, 2) = aData(r, 1)
GoTo Tiep
End If
Next r
End If
Next j
Tiep:
Next i
Sheets("Sheet2").Range("B2").Resize(srSP, 2) = res
End Sub
Nếu có >=2 sản phẩm cùng số lượng chữ giống nhau thì chọn thế nào?
Tung đồng xu? Tung đồng xu? Tung đồng xu? Tung đồng xu? Tung đồng xu? Tung đồng xu? Tung đồng xu? Tung đồng xu?
Dạ . Chắc không có đâu. Nếu có em lấy chữ chữ đầu tiên ạ
Dạ em cám ơn anh ạCó những chuyện không như mơ, quản trị doanh nghiệp phải xử lý rừng dữ liệu từ nhiều nguồn khác nhau thường không đồng nhất, lúc thừa lúc thiếu là chuyện cơm bữa. Dữ liệu đến từ các đối tác kinh doanh không thể theo chuẩn chung, ngay cả trong nội bộ doanh nghiệp từng bộ phận thường có cách xử lý dữ liệu riêng và mối quan hệ giữa các cá nhân khá phức tạp nên dữ liệu thường khác nhau, muốn dữ liệu thống nhất phải bỏ ra chi phí và thời gian khá lớn để xây dựng hệ thống quản trị nguồn lực ERP
Tạm chữa cháy bằng cách cắt chuỗi và tìm gần đúng, nếu muốn xịn hơn tìm người dùng thuật toán trí tuệ nhân tạo để xử lý
Dữ liệu khá ít nên code có thể chưa xét hết các khả năng
Mã:Sub XYZ() Dim aData(), aSP(), res(), arr(), S, aL, aU, sp$ Dim srData&, srSP&, N&, D&, i&, j&, k&, r& aL = Array(0, 1, 0, 1, 0, 2, 3, 0, 2, 1, 4, 0, 3, 1, 2) aU = Array(0, 0, 1, 1, 2, 0, 0, 3, 1, 2, 0, 4, 1, 3, 2) N = UBound(aL) With Sheets("Sheet1") aData = .Range("A2", .Range("B" & Rows.Count).End(xlUp)).Value End With With Sheets("Sheet2") aSP = .Range("A2", .Range("A" & Rows.Count).End(xlUp)).Value End With srData = UBound(aData): srSP = UBound(aSP) ReDim res(1 To srSP, 1 To 2) For i = 1 To srData aData(i, 1) = Application.Trim(Replace(aData(i, 1), "!", "! ")) Next i For i = 1 To srSP S = Split(Application.Trim(Replace(aSP(i, 1), "!", "! ")), " ") D = UBound(S) For j = 0 To N If D - aL(j) - aU(j) > 0 Then ReDim arr(aL(j) To D - aU(j)) For k = aL(j) To D - aU(j) arr(k) = S(k) Next k sp = Join(arr, " ") For r = 1 To srData If InStr(1, aData(r, 1), sp, vbTextCompare) > 0 Then res(i, 1) = aData(r, 2) res(i, 2) = aData(r, 1) GoTo Tiep End If Next r End If Next j Tiep: Next i Sheets("Sheet2").Range("B2").Resize(srSP, 2) = res End Sub
Dạ. Em cám ơn anh ạ. Để em thử xem. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
Tham khảo file của mình bài trên & xin bạn góp ý thêm . . . .
