Tài nguyên 7Kho

Điều tra ý kiến

Quý thầy cô và các bạn thấy 7kho.violet.vn của tôi thế nào?
Tương đối đẹp và phong phú
Cần điều chỉnh thêm
Thế này cũng được
Ý kiến khác

Đang online

0 khách và 0 thành viên

Thống kê truy cập

  • truy cập   (chi tiết)
    trong hôm nay
  • lượt xem
    trong hôm nay
  • thành viên
  • Ảnh ngẫu nhiên

    IMG_00081.jpg Lich_Tet_31.swf IMG_4282.jpg 2011_chuan.swf Tan_co_loi_thu_xua.swf Bn3.swf 4jpg13498564421349856576_480x0.jpg 20121010155134_thuhn3.jpg Baby11.jpg Iphone4.jpg

    Hỗ trợ trực tuyến

    • (nguyenhuudie@vanchan.edu.vn)

    Thông tin quản trị viên



    - Admin 7K: Nguyễn Hữu Điệp
    - Sinh ngày: 12/5/1983
    - Liên hệ email: nguyenhuudiep@msn.com
    - Lập web: 26-9-2009



    Gốc > Kho Code, thiết kế website, học tin học > Thủ thuật Excel >

    Code dán dữ liệu bỏ qua dòng ẩn trong Excel

    Sub Paste_to_Visible_Rows()

    Dim Nguon As Range, Dich As Range
    Dim i As Long, r As Long
    Set Nguon = Application.InputBox(prompt:="Chon Vung Copy ", Type:=8)
    Set Dich = Application.InputBox(prompt:="Chep Den ", Type:=8)
    For i = 1 To Nguon.Rows.Count
    Do Until Not Dich.Offset(r).Rows.Hidden
    r = r + 1
    Loop
    Nguon.Rows(i).Copy Destination:=Dich.Offset(r)
    r = r + 1
    Next i

    End Sub


    Nhắn tin cho tác giả
    Nguyễn Hữu Điệp @ 16:02 22/03/2018
    Số lượt xem: 345
    Số lượt thích: 1 người (Nguyễn Hữu Điệp)
    Avatar

    Mọi người gặp tình huống này chưa nhé: Bạn có danh sách lập từ excel, sau khi dùng công cụ lọc để chọn đối tượng (đương nhiên các dòng không thuộc đối tượng muốn chọn sẽ ẩn đi). Bạn cần nhập dữ liệu cho các dòng vừa chọn (trong cùng 1 cột) nhưng nhiều thông tin cần nhập quá Khóc! (Các nhập hết phải mất cả buổi!!!)

    May quá trong một biểu excel khác có các dữ liệu để nhập vào biểu trên nhưng nếu copy và dán sang thì ôi thôi....!!! được có mấy số còn lại ..nó chui đi đâu mất hếtKhóc!!...Thôi thà nhập tay hoặc copy từng số một cho xong!

    Sau một hồi mò mẫm, mình sưu tầm được đoạn code trên của một cao thủCười nhăn răng. Sử dụng rất tiện và nhanh các bạn ạ.

     
    Gửi ý kiến