code bị giới hạn copy sang sheet khác

[maiban116]

em có code bị giới hạn sheet. nhờ các bác xem có cách nào cho copy nhiều sheet không ạ. và có cách nào cho gọn lại code không. xin cảm ơn
Sub Copy_NguyenXi()
Sheets("TC").Range("U3:H28").Value = Sheets("GT1").Range("S3:F28").Value
Sheets("PD").Range("V3:I28").Value = Sheets("GT1").Range("S3:F28").Value
Sheets("PT").Range("T3:G28").Value = Sheets("GT1").Range("S3:F28").Value
Sheets("NT").Range("U3:H28").Value = Sheets("GT1").Range("S3:F28").Value
Sheets("TN").Range("T3:G28").Value = Sheets("GT1").Range("S3:F28").Value
Sheets("HV").Range("AD3:Q28").Value = Sheets("GT1").Range("S3:F28").Value
Sheets("CM").Range("W3:I28").Value = Sheets("GT1").Range("S3:F28").Value
Sheets("TQ").Range("Y3:L28").Value = Sheets("GT1").Range("S3:F28").Value
Sheets("TT").Range("AE3:R28").Value = Sheets("GT1").Range("S3:F28").Value
Sheets("STCN").Range("Z3:M28").Value = Sheets("GT1").Range("S3:F28").Value
Sheets("TTRIEU").Range("V3:I28").Value = Sheets("GT1").Range("S3:F28").Value
End Sub

 

[maiban116]

có bác nào không ạ

 

[be_09]

có bác nào không ạ

Thành viên thì đầy trên diễn đàn, nhưng không đính kèm File thì ai có thể hình dung được làm thế nào code cho gọn .

 

[maiban116]

Thành viên thì đầy trên diễn đàn, nhưng không đính kèm File thì ai có thể hình dung được làm thế nào code cho gọn .

 

[be_09]

em có code bị giới hạn sheet. nhờ các bác xem có cách nào cho copy nhiều sheet không ạ. và có cách nào cho gọn lại code không. xin cảm ơn
Sub Copy_NguyenXi()
Sheets("TC").Range("U3:H28").Value = Sheets("GT1").Range("S3:F28").Value
Sheets("PD").Range("V3:I28").Value = Sheets("GT1").Range("S3:F28").Value
Sheets("PT").Range("T3:G28").Value = Sheets("GT1").Range("S3:F28").Value
Sheets("NT").Range("U3:H28").Value = Sheets("GT1").Range("S3:F28").Value
Sheets("TN").Range("T3:G28").Value = Sheets("GT1").Range("S3:F28").Value
Sheets("HV").Range("AD3:Q28").Value = Sheets("GT1").Range("S3:F28").Value
Sheets("CM").Range("W3:I28").Value = Sheets("GT1").Range("S3:F28").Value
Sheets("TQ").Range("Y3:L28").Value = Sheets("GT1").Range("S3:F28").Value
Sheets("TT").Range("AE3:R28").Value = Sheets("GT1").Range("S3:F28").Value
Sheets("STCN").Range("Z3:M28").Value = Sheets("GT1").Range("S3:F28").Value
Sheets("TTRIEU").Range("V3:I28").Value = Sheets("GT1").Range("S3:F28").Value
End Sub

Tôi thắc mắc chỉ có 1 vùng mà tại sao lại phải bê nguyên qua các sheet?
Bài này sao giống bài ở Link sau quá vậy:
https://www.giaiphapexcel.com/diendan/threads/xin-hỏi-anh-chị-có-cách-nào-dùng-vba-lấy-dữ-liệu-của-sheet-này-điền-vào-các-sheet-khác-không.138663/