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ạ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 Anh chị nào hỗ trợ e kết chuyển nguồn trên phần mềm với Có bạn nào sử dụng phần mềm IMas 2018 cho mình hỏi chút. Khi nhập dự toán ban Chào anh/chị cho e hỏi chút ạ hỏi đáp về excel kế toán Cần các Pro giúp tháo gỡ vướng mắc Cho em hỏi vê hàm excel hi các anh chị, anh chị cho em hỏi cách xử lý lỗi run time error 1004 trong ĐÀO TẠO KẾ TOÁN TRƯỞNG HÀNH CHÍNH SỰ NGHIỆP BỘ TÀI CHÍNH TPHCM Xem thêm