Em xin cách Copy và Paste value các dòng khi lọc, bỏ qua dòng ẩn

[phamgiang90]

Em chào anh chị trong nhóm, do các hàng của em có công thức, bây giờ em muốn lọc các hàng cần copy, rồi sau đó em muốn paste Value các hàng đấy luôn, bỏ qua các hàng ẩn, mong anh chị giúp em với ạ.
Em cám ơn

 

[batman1]

dạ ,em thử code của anh bị lỗi, anh xem giúp em và file em có nhiều sheets cấu trúc như vậy, anh có cách nào dùng phím tắt để thực hiện thao tác không ạ.
em cám ơn
View attachment 274548

Có tập tin với code của tôi đâu, thì làm sao tôi biết sai ở đâu. Ảnh thì chỉ ngắm được thôi. Mà bạn đâu có nói thứ tự các thao tác của bạn để có cơ sở đoán mò.

Code của tôi chuyển về giá trị từng dòng hoặc cụm dòng liên tiếp. Code mà bạn vừa ý chuyển từng ô - cell. Dùng cũng được chả sao.

 

[phamgiang90]

Có tập tin với code của tôi đâu, thì làm sao tôi biết sai ở đâu. Ảnh thì chỉ ngắm được thôi. Mà bạn đâu có nói thứ tự các thao tác của bạn để có cơ sở đoán mò.

Code của tôi chuyển về giá trị từng dòng hoặc cụm dòng liên tiếp. Code mà bạn vừa ý chuyển từng ô - cell. Dùng cũng được chả sao.

dạ , thật sự xin lỗi anh, mong anh thông cảm cho em, em kiểm tra lại rồi, code anh dùng bình thường ạ

 

[bebo021999]

Thêm 1 cách để tham khảo:

Option Explicit
Sub test()
    Dim ws As Worksheet, cell As Range
    For Each ws In Sheets
        If ws.AutoFilterMode = False Then Exit For
            For Each cell In ws.Range("G3").CurrentRegion.SpecialCells(xlCellTypeVisible)
                If cell.HasFormula Then cell.Value = cell.Value
            Next
    Next
End Sub

 

[phamgiang90]

Thêm 1 cách để tham khảo:

Option Explicit
Sub test()
    Dim ws As Worksheet, cell As Range
    For Each ws In Sheets
        If ws.AutoFilterMode = False Then Exit For
            For Each cell In ws.Range("G3").CurrentRegion.SpecialCells(xlCellTypeVisible)
                If cell.HasFormula Then cell.Value = cell.Value
            Next
    Next
End Sub

Dạ. Em cám ơn anh ạ