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

[namvu230397]

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. Các bác cho em xin giải pháp với ạ

 

[Trần Văn Bình]

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

 

[namvu230397]

Bạn chọn vùng Copy sau đó View attachment 285575

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

 

[bebo021999]

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.

 

[namvu230397]

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.

Cảm ơn bác nhé. Em test được rồi. Dữ liệu đầy đủ cũng ít thôi bác, không quá 1000 dòng, còn cột thì luôn cố định là như vậy