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
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
Lần chỉnh sửa cuối: