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

***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- tại sao khi in có dòng mã bên dưới cuối trang và xóa như thế nào -FULL BỘ TÀI LIỆU SINH TRẮC VÂN TAY CỰC HIẾM- Bác nào có phần mềm hoặc file kiểm phiếu bầu cử nhanh bằng Excel không ạ ? Mình cần hỗ trợ từ các bạn Công thức lấy năm hiện tại để ghép vào tiêu đề bảng tính tính tiền ăn mỗi bữa Trả về giá trị nếu thuộc một trong các giá tri đưa ra CÔNG THỨC LIỆT KÊ SỐ PHIẾU GIAO HÀNG TRONG THÁNG CỦA CỬA HANG các anh chị cho em hỏi Xem thêm