Rút gọn dữ liệu trùng

[Excel my love_1]

Em có bảng dữ liệu muốn rút gọn theo quy tắc

+ Bắt đầu từ dòng stt 1 của biểu mẫu
+ Chạy từ stt 1 -> cuối, nếu gặp ở dưới có trùng tên hàng và trùng đơn giá thì cộng dồn số lượng, cộng dồn thành tiền; rút gọn lại vào dòng của stt xuất hiện đầu tiên
Nếu stt không bị trùng tên, trùng giá thì lấy toàn bộ dòng stt đó và tiếp tục xử lý stt tiếp theo
+ Sau khi rút gọn, đánh lại stt
+ Kết quả rút gọn làm trực tiếp luôn trên Dữ liệu gốc
Yêu cầu (tùy chọn) : Cái này em biết là hơi quá đáng nhưng mà nếu được vẫn mong các anh chị giúp đỡ. Đó là ở phần số lượng rút gọn nếu có phát sinh cộng dồn thì trình bày dạng = a+b+c+...+n
Chi tiết xem sheet kết quả để dễ hình dung. Em cảm ơn các anh chị đã bỏ thời gian xem qua vấn đề của em
Chúc anh chị và các bạn tuần mới làm việc hiệu quả

 

[anhtuanle123]

chú xem thử !
nếu xài đc nhớ hậu tạ ^^

 

[Excel my love_1]

chú xem thử !
nếu xài đc nhớ hậu tạ ^^

Dạ em xem rồi kết quả ra giống với mong muốn của em rồi. Cái phần số thứ tự thì chắc là em cót két vần vò buổi là sẽ ra. Nhưng mà anh có làm cho kết quả nó ra luôn trên sheet chứa dữ liệu được không ạ
Cảm ơn anh

 

[phuc12345]

chú xem thử !
nếu xài đc nhớ hậu tạ ^^

chú xem thử !
nếu xài đc nhớ hậu tạ ^^

Anh Tuấn có thể xem thêm giúp em.
Code này em dùng Dictionary.
Phần số lượng (m3) em chưa đưa được về dạng = a+ b+ c+ ....+n được.
Anh có thể bổ xung thêm được không a.

 

[BuiQuangThuan]

Phần số lượng (m3) em chưa đưa được về dạng = a+ b+ c+ ....+n được.

Bạn không muốn nó ra kết quả luôn mà muốn nó hiện là: a+b+c+...+n à

 

[phuc12345]

Bạn không muốn nó ra kết quả luôn mà muốn nó hiện là: a+b+c+...+n à

Không phải. Mình làm ra kết quả thì được rồi. Nhưng yêu cầu của bạn Excel my love_1 là để ở dạng =a+b+c+...+n .
Cái này thì mình chịu. Hihi

 

[snow25]

Anh Tuấn có thể xem thêm giúp em.
Code này em dùng Dictionary.
Phần số lượng (m3) em chưa đưa được về dạng = a+ b+ c+ ....+n được.
Anh có thể bổ xung thêm được không a.

Bạn chỉnh chỗ này là được.

Result(dic.Item(iTmp), 5) = Result(dic.Item(iTmp), 5) & " + " & ArrData(i, 4)

 

[befaint]

.

 

[phuc12345]

Bạn chỉnh chỗ này là được.

Result(dic.Item(iTmp), 5) = Result(dic.Item(iTmp), 5) & " + " & ArrData(i, 4)

Không biết máy tính của e có lỗi gì không. Khi sửa lại code như vậy nó không cộng tổng được. Ví dụ ô P17 sẽ ra : 56.12 + 81.05 + 42.5 + 26.
Hôm trước, em có sửa code như vậy anh bảo rồi nhưng không được a. Anh có thể sửa và gửi file giúp e. Em cám ơn.

 

[Ba Tê]

Không biết máy tính của e có lỗi gì không. Khi sửa lại code như vậy nó không cộng tổng được. Ví dụ ô P17 sẽ ra : 56.12 + 81.05 + 42.5 + 26.
Hôm trước, em có sửa code như vậy anh bảo rồi nhưng không được a. Anh có thể sửa và gửi file giúp e. Em cám ơn.

Bạn viết code khó nhìn, khó đọc "chết mồ".
Xem thử file này xem. Sub của bạn chỉ sửa 1 dòng lệnh, Các dòng khác nhìn, đọc không hiểu

 

[phuc12345]

Bạn viết code khó nhìn, khó đọc "chết mồ".
Xem thử file này xem. Sub của bạn chỉ sửa 1 dòng lệnh, Các dòng khác nhìn, đọc không hiểu

Bác thông cảm. Em là dân nghiệp dư nên nghĩ sao viết vậy thôi a.

 

[Excel my love_1]

Em cảm ơn các anh đã giúp đỡ. Cảm ơn bạn phuc12345 đã nhiệt tình giúp đỡ. Cảm ơn anh Ba Tê , code của anh đúng với ý của em rồi ạ (chỉ bị lỗi nhỏ là nếu em thay dữ liệu khác thì phần tính Cộng ở Cột Số Lượng không update ạ).
Cơ Mà em cũng xin lỗi các anh vì đã ghi chú ở trong bài viết trên GPE , nhưng chưa sửa ghi chú trong Textbox trong file
(ở dấu + thứ 4 trong bài viết #1 trên GPE em có mong muốn là kết quả nó ra luôn trên sheet dữ liệu gốc ấy ạ).
Sở dĩ trong file gửi lên GPE; em làm ra cái sheet Kết quả vì để mọi người hiểu ý em ạ và để dễ kiểm tra qua lại. Trong thực tế là kết quả nó sẽ ra luôn trên dữ liệu đưa vào ạ
Mong các anh giúp đỡ thêm là cho kết quả nó ra luôn trên sheet dữ liệu gốc ạ, em cảm ơn các anh và các bạn nhiều nhiều
Em gửi lại file