Dán dữ liệu bỏ qua các cột hoặc hàng ẩn

Chia sẻ bởi:hands

★★★★★

‹ Xin giúp sửa code VBA Hỗ trợ xử lý lọc ›

Quảng cáo

Chào các bác, em muốn paste dữ liệu ở vùng màu vàng sang vùng màu xanh sao cho khi paste sẽ bỏ qua các vùng ẩn và chỉ paste vào vùng nhìn thấy (minh hoạ trong ảnh và tệp đính kèm). Vùng màu xanh có một số hàng và cột bị ẩn đi.

1839
Các bác cho em xin giải pháp với ạ

Bạn chọn vùng Copy sau đó
1840

Này là paste value mà bác. Em muốn copy một vùng không ẩn gì paste vào một vùng có hàng và cột bị ẩn. Các hàng cột bị ẩn sẽ bỏ qua chỉ paste vào vùng nhìn thấy

Nếu data của bạn không quá nhiều thì dùng cái này. Nhấn nút "Copy" để chạy code.
Code này sẽ copy từng ô màu vàng dán vô vùng visible màu xanh:

Option Explicit
Sub copypasteValue()
Dim i&, j&, k&, src
src = Range("Q2:AB12").Value ' source = vung mau vang
For i = 1 To UBound(src)
    Do While Rows(i + 1).Hidden
        i = i + 1
    Loop
    k = 0
    For j = 1 To UBound(src, 2)
        k = k + 1
        Do While Columns(k).Hidden
            k = k + 1
        Loop
        Cells(i + 1, k).Value = src(i, j)
    Next
Next
End Sub

Nếu data nhiều thì sẽ ảnh hưởng đến tốc độ.
Nếu bị chậm quá thì la lên nhé, mình sẽ thay bằng array cho bạn.