Trang web hiển thị tốt nhất trên các trình duyệt mới và được bật Javascript.

Cả nhà hướng dẫn giúp em cách rút ngắn đoạn Code sau với

PhuocNguyen

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

DucThanhNguyen

lúc mình viết đoạn code này để minh hoạ cho 1 trường hợp: các cột dữ liệu không liền kề nhau.
Nếu liền kề nhau thì chỉ cần Range("A:I").copy [Destination] là được
Còn 1 cách khác đó là:
Vẫn copy toàn bộ rồi xoá đi những cột công cần thiết:
VD:
Range("A:I").copy [Destination]
Columns(3).EntireColumn.Delete

Em nhờ mọi người 1 ca khó với :( Em phải gửi Phiếu lương hàng tháng cho mọi Mình cần làm thuê bài tập excel ạ, giúp mình với Nhờ Mọi người giúp đỡ với giúp em giải câu excel ạ Cho em hỏi phần đơn giá em bị sai gì ạ ? Dùng hàm IF và hàm Vlookup Hàm tìm ngày trong khoảng thời gian xác định SANG DỮ LIỆU TỪ FILE 1 VÀO FILE 2 THEO THỨ TỰ. Cần các cao thủ về Mail merge trợ giúp ạ. ***Tặng phần mềm kế toán UNESCO Fee sử dụng vĩnh viễn các Version 6.0 - 5.1- Xem thêm