Code copy dữ liệu + tính toán theo quy luật (1 người xem)

[kydang1989]

E có 2 sheet TONGHOP và DULIEU
[TABLE="width: 499"]
[TR]
[TD="colspan: 5"]cần nhập từ ô D4 đến ô ... (TRONG SHEET TONGHOP) THEO QUY LuẬT: . Anh chị giúp em đoạn code tự động nhập theo quy luật, chứ làm thủ công copy bằng tay lâu quá.

[TABLE="width: 499"]
[TR]
[TD="colspan: 5"]Bên sheet DULIEU: cứ cách 6 cột lấy 1 cột (số dòng không thay đổi) xem file đính kèm sẽ dễ hiểu hơn[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Sheet[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]Sheet[/TD]
[/TR]
[TR]
[TD]TONGHOP[/TD]
[TD]D4[/TD]
[TD]=[/TD]
[TD]J23[/TD]
[TD][/TD]
[TD]DULIEU[/TD]
[/TR]
[TR]
[TD]TONGHOP[/TD]
[TD]D5[/TD]
[TD]=[/TD]
[TD]J26[/TD]
[TD][/TD]
[TD]DULIEU[/TD]
[/TR]
[TR]
[TD]TONGHOP[/TD]
[TD]D6[/TD]
[TD]=[/TD]
[TD]D4-D5[/TD]
[TD][/TD]
[TD]TONGHOP[/TD]
[/TR]
[TR]
[TD]TONGHOP[/TD]
[TD]D7[/TD]
[TD]=[/TD]
[TD="colspan: 2"](J46+J49)*7.5+J52+J54[/TD]
[TD]DULIEU[/TD]
[/TR]
[TR]
[TD]TONGHOP[/TD]
[TD]D8[/TD]
[TD]=[/TD]
[TD="colspan: 2"](J106+J109)*7.5+J115+J117[/TD]
[TD]DULIEU[/TD]
[/TR]
[TR]
[TD]TONGHOP[/TD]
[TD]D9[/TD]
[TD]=[/TD]
[TD]Q23[/TD]
[TD][/TD]
[TD]DULIEU[/TD]
[/TR]
[TR]
[TD]TONGHOP[/TD]
[TD]D10[/TD]
[TD]=[/TD]
[TD]Q26[/TD]
[TD][/TD]
[TD]DULIEU[/TD]
[/TR]
[TR]
[TD]TONGHOP[/TD]
[TD]D11[/TD]
[TD]=[/TD]
[TD]D9-D10[/TD]
[TD][/TD]
[TD]TONGHOP[/TD]
[/TR]
[TR]
[TD]TONGHOP[/TD]
[TD]D12[/TD]
[TD]=[/TD]
[TD="colspan: 2"](Q46+Q49)*7.5+Q52+Q54[/TD]
[TD]DULIEU[/TD]
[/TR]
[TR]
[TD]TONGHOP[/TD]
[TD]D13[/TD]
[TD]=[/TD]
[TD="colspan: 2"](Q106+Q109)*7.5+Q115+Q117[/TD]
[TD]DULIEU[/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[/TABLE]