code nối dòng có điều kiện

[dattran123456]

em mới vào diễn đàn, nhờ các bác tạo giúp code gộp nhiều ô thành 1 ô có xuống dòng. Ví dụ gộp các dòng vật tư có cùng chuẩn loại:

Kết quả:


Xin chân thành cảm ơn !

 

[Ba Tê]

em mới vào diễn đàn, nhờ các bác tạo giúp code gộp nhiều ô thành 1 ô có xuống dòng. Ví dụ gộp các dòng vật tư có cùng chuẩn loại:
View attachment 263718
Kết quả:
View attachment 263719

Xin chân thành cảm ơn !

Bạn phải file của bạn lên để mọi người có thể viết code và kiểm tra kết quả.
Đọc thấy từ "chuẩn loại" sao có vẻ ngộ quá.

 

[dattran123456]

file danh mục vật tư đính kèm

 

[thnghiachau]

em mới vào diễn đàn, nhờ các bác tạo giúp code gộp nhiều ô thành 1 ô có xuống dòng. Ví dụ gộp các dòng vật tư có cùng chuẩn loại:
View attachment 263718
Kết quả:
View attachment 263719

Xin chân thành cảm ơn !

xem chơi cho vui thời cô dzít

 

[Phuocam]

Cột "Chuẩn loại" nếu sắp xếp, chỉ cần 1 vòng for, không cần dic.

.

 

[thnghiachau]

Cột "Chuẩn loại" nếu sắp xếp, chỉ cần 1 vòng for, không cần dic.

.

nếu sắp xếp ...=> hên xui...

 

[Phuocam]

Thêm dòng lệnh sort:

Range("B4:C14").Sort key1:=Range("C4"), Header:=xlNo

.

 

[thnghiachau]

Thêm dòng lệnh sort:

Range("B4:C14").Sort key1:=Range("C4"), Header:=xlNo

.

Phá đi cái gốc rồi nhỉ...

 

[Phuocam]

Phá đi cái gốc rồi nhỉ...

Biết cách phục hồi lại cũng dễ.

.

 

[thnghiachau]

Biết cách phục hồi lại cũng dễ.

.

Tại sao phải phá đi rồi làm lai nhỉ? Tốn sức tốn cong lại tốn giờ....

 

[Phuocam]

Tại sao phải phá đi rồi làm lai nhỉ? Tốn sức tốn cong lại tốn giờ....

Thích thì làm.

Không sort, dùng dic, cũng chỉ cần 1 vòng lăp.
.

 

[tranbinhan0612]

có thể giống
cái này

Liên kết: https://youtu.be/pwiRk42lJPA?list=PLhvZNCu_Mt0GyZQ4qTCPPC2GDFIItA4mw

 

[dattran123456]

xem chơi cho vui thời cô dzít

Hay quá. cảm ơn bạn. Nếu mình phải sắp xếp cột chuẩn loại nữa thì phải làm sao ? mình ko biết bên VBA. chỉ xin code. ví dụ: