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- ***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- KẾ TOÁN HÀNH CHÍNH SỰ NGHIỆP học ở đâu tại Hồ Chí Minh? Đào tạo chứng chỉ KẾ TOÁN VIÊN Trường Bồi dưỡng Cán bộ Tài chính-BTC ĐÀO TẠO KẾ TOÁN TRƯỞNG HÀNH CHÍNH SỰ NGHIỆP BỘ TÀI CHÍNH TPHCM Chuyên mục tặng phần mềm kế toán excel cho dân kế toán miễn phí mới nhất năm Mình có cái máy bị lỗi dấu chấm "." ở bên phím Numlock, khi chỉnh hệ thống Hỏi về cách chọn giá trị nhưng chỉ hiển thị thông tin nằm trong bảng đã chọn Tạo Hộp Thoại Search Thông tin Trông Ô Lấy nội dung của dòng bên trên ô selected Xem thêm