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

-FULL BỘ TÀI LIỆU SINH TRẮC VÂN TAY CỰC HIẾM- FILE TỔNG HỢP LÊN BCTC THEO TT 133: Các bạn cho mình hỏi .Trong excel có hàm nào tính ra số hoán vị của 1 số ko ... Mọi người cho mình hỏi chút ạ, khi in từ excel thì bị lỗi output file name, ***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- bài tập excel cần pp giải gấp Bài tập excel cần phương pháp giải gấp chào các cao thủ excel ạ. Em đang gà mờ excel nên em muốn các cao thủ chỉ dùm m.n giupp e voiii m.n giupp e voiii FREE - Hạ Long (thành phố) M.n giúp e ĐỊNH MỨC XĂNG XE /DẦU XE CHO DOANH NGHIỆP VẬN TẢI Xem thêm