Cả nhà hướng dẫn giúp em cách rút ngắn đoạn Code sau với ạh!
Sub data()
Dim iLastRowReport As Integer
iLastRowReport = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Data").Range("d3:d" & iLastRowReport).Copy
Sheets("Xu_Ly").Range("a1").PasteSpecial
Sheets("Data").Range("e3:e" & iLastRowReport).Copy
Sheets("Xu_Ly").Range("b1").PasteSpecial
Sheets("Data").Range("l3:l" & iLastRowReport).Copy
Sheets("Xu_Ly").Range("c1").PasteSpecial
Sheets("Data").Range("m3:m" & iLastRowReport).Copy
Sheets("Xu_Ly").Range("d1").PasteSpecial
Sheets("Data").Range("o3:o" & iLastRowReport).Copy
Sheets("Xu_Ly").Range("e1").PasteSpecial
Sheets("Data").Range("q3:q" & iLastRowReport).Copy
Sheets("Xu_Ly").Range("f1").PasteSpecial
Sheets("Data").Range("s3:s" & iLastRowReport).Copy
Sheets("Xu_Ly").Range("g1").PasteSpecial
Sheets("Data").Range("u3:u" & iLastRowReport).Copy
Sheets("Xu_Ly").Range("h1").PasteSpecial
Sheets("Xu_Ly").Select
End Sub