Sắp xếp lại dữ liệu từ các cột thành dòng tương ứng (1 người xem)

[phucuongn]

Chào các anh chị và các bạn trên diễn đàn
Mình có 1 file post lên đây nhờ các bạn giúp mình viết code VBA dùm ,yêu cầu như sau :

ở sheet "chitiet" có dữ liệu :
[TABLE="width: 235"]
[TR]
[TD]Mã hàng[/TD]
[TD] Tên hàng[/TD]
[TD] DG 01[/TD]
[/TR]
[TR]
[TD="align: right"]1001 [/TD]
[TD] mat hang 1[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD="align: right"]1002 [/TD]
[TD] mat hang 2[/TD]
[TD] 1[/TD]
[/TR]
[/TABLE]

ở sheet "tonghop" sắp xếp lại thành :
[TABLE="width: 365"]
[TR]
[TD]Mã hàng[/TD]
[TD]Tên hàng[/TD]
[TD]Số lượng[/TD]
[TD]Tên DG[/TD]
[/TR]
[TR]
[TD]1001[/TD]
[TD]mat hang 1[/TD]
[TD]1[/TD]
[TD]DG 01[/TD]
[/TR]
[TR]
[TD]1002[/TD]
[TD]mat hang 2[/TD]
[TD]1[/TD]
[TD]DG 01[/TD]
[/TR]
[/TABLE]

mình đã làm mẫu và yêu cầu trong file đính kèm
cám ơn các bạn.

 

[phucuongn]

xin lỗi các bạn nhe, mình trình bày quá xấu, do không biết khi copy từ excel qua nên gửi nó bị lỗi trình bày không đẹp mắt tí nào
nhờ các bạn xem giúp mình trong file nhe.
cám ơn rất nhiều

 

[dhn46]

Bạn xem như thế này có được không?

 

[phucuongn]

Cám ơn bạn dhn46 rất nhiều .
Bạn đã làm đúng ý của mình rồi