Tìm theo giá trị trong cột từ bảng dữ liệu, liệt kê ra khi trùng lặp thì làm sao cho đúng như mong muốn ah?

[Lequocvan]

Mong mọi người giúp em ah?
Từ các giá trị cột E, khi thấy giá trị duy nhất thì liệt kê ra cột H; khi có giá trị trùng nhau thì ghép lại như cột Mongmuon ah!

 

[Phuocam]

Mong mọi người giúp em ah?
Từ các giá trị cột E, khi thấy giá trị duy nhất thì liệt kê ra cột H; khi có giá trị trùng nhau thì ghép lại như cột Mongmuon ah!

Thêm dòng này vào sau Else:

If ...

Else
               dArr(dic.Item(sArr(i, 1)), 3) = dArr(dic.Item(sArr(i, 1)), 3) & ", " & sArr(i, 3)
End If

 

[Lequocvan]

Thêm dòng này vào sau Else:

If ...

Else
               dArr(dic.Item(sArr(i, 1)), 3) = dArr(dic.Item(sArr(i, 1)), 3) & ", " & sArr(i, 3)
End If

Báo lỗi type mismatch ah! Báo lỗi type mismatch ah!

 

[Phuocam]

Báo lỗi type mismatch ah! Báo lỗi type mismatch ah!

Thêm dòng này vào sau Else:

dArr(dic.Item(sArr(i, 1)), 3) = dArr(dic.Item(sArr(i, 1)), 3) & ", " & sArr(i, 3)

.

 

[Lequocvan]

Thêm dòng này vào sau Else:

dArr(dic.Item(sArr(i, 1)), 3) = dArr(dic.Item(sArr(i, 1)), 3) & ", " & sArr(i, 3)

.

Vẫn lỗi ah Vẫn lỗi ah Vẫn lỗi ah Vẫn lỗi ah Vẫn lỗi ah

 

[bebo021999]

Vẫn lỗi ah Vẫn lỗi ah Vẫn lỗi ah Vẫn lỗi ah Vẫn lỗi ah

Bình tĩnh chứ.
Viết lại code khác nhé chịu không?

 

[Lequocvan]

Bình tĩnh chứ.
Viết lại code khác nhé chịu không?

Dạ, em rất muốn ah! Giải pháp nào nhanh nhất có thể, vì dữ liệu thất lên đến cả trăm nghìn dòng ah

 

[HUONGHCKT]

Vẫn lỗi ah Vẫn lỗi ah Vẫn lỗi ah Vẫn lỗi ah Vẫn lỗi ah

Lạ nhỉ ? Tôi tải về máy tôi cũng thêm đoạn code như anh @Phuocam chỉ khác là dùng 1 biến t=Dic.Item (sArr(i,1)) và sau đó là dArr(t, 3) = dArr(t, 3) & "," & sArr(i, 3) . Test thử thấy chạy và vẫn ra được kết quả như mong muốn chứ có thấy báo lỗi gì đâu.

 

[Lequocvan]

Lạ nhỉ ? Tôi tải về máy tôi cũng thêm đoạn code như anh @Phuocam chỉ khác là dùng 1 biến t=Dic.Item (sArr(i,1)) và sau đó là dArr(t, 3) = dArr(t, 3) & "," & sArr(i, 3) . Test thử thấy chạy và vẫn ra được kết quả như mong muốn chứ có thấy báo lỗi gì đâu.

Em đang rà lại cột C trong file dữ liệu thiệt của em, khả năng cột C này có chứa data tạp rồi ah!

 

[Lequocvan]

Nếu em muốn dò tìm từng giá trị tại cột E ở trong A2:C20, nếu tìm thấy thì, trả kết quả về cột H, không phân biệt duy nhất. (dạng liệt kê ra ấy ah) thì có làm được không ah? và code vba làm như thế nào ah? Mong mọi người chỉ giúp ah!

 

[Lequocvan]

Em đã dùng giải pháp khác, kiểu filter và copy dữ liệu sau khi lọc (không lấy tiêu đề). Chạy ổn với it dòng. Em sẽ thử với trăm nghìn dòng xem ntn ah!

 

[Maika8008]

... ntn ah!

Nhai thịt nướng anh hè!

 

[hocexcel_1991]

Nếu dữ liệu nhiều bạn có thể dùng PowerPivot, sử dụng hàm CONCATENATEX để nối chuỗi