copy va paste dữ liệu những ô tại vùng đang filter

[tuyenmy2505]

các Anh Chị giup e với ạ!
em co 1 file du lieu như đính kèm , sau khi filter, tại cột G có công thức e muốn copy và dán giá trị value tại vùng đang chọn filter đó , e đã chọn tổ hợp Ctrl+; , hoặc F5 chọn Visible cell onlys. nhưng khi dán giá trị nó báo lỗi "this action won multiple selections", k cpy và dán tại những ô không liên tục được ạ!
các Anh chị chi giup e với ạ!
Em cam ơn!

 

[hml89]

các Anh Chị giup e với ạ!
em co 1 file du lieu như đính kèm , sau khi filter, tại cột G có công thức e muốn copy và dán giá trị value tại vùng đang chọn filter đó , e đã chọn tổ hợp Ctrl+; , hoặc F5 chọn Visible cell onlys. nhưng khi dán giá trị nó báo lỗi "this action won multiple selections", k cpy và dán tại những ô không liên tục được ạ!
các Anh chị chi giup e với ạ!
Em cam ơn!

Trường hợp dùng Alt+ ; hay F5 thì mình thấy sử dụng được khi bạn dán ra 1 ô mới nhé. Còn dán trực tiếp vào ô đó thì không dán được thì phải. Có cách là sau khi thực hiện công thức xong, bỏ filter sau đó copy value rồi lại filter theo ý muốn bạn ạ.

 

[Nhattanktnn]

các Anh Chị giup e với ạ!
em co 1 file du lieu như đính kèm , sau khi filter, tại cột G có công thức e muốn copy và dán giá trị value tại vùng đang chọn filter đó , e đã chọn tổ hợp Ctrl+; , hoặc F5 chọn Visible cell onlys. nhưng khi dán giá trị nó báo lỗi "this action won multiple selections", k cpy và dán tại những ô không liên tục được ạ!
các Anh chị chi giup e với ạ!
Em cam ơn!

Chắc phải dùng tới VBA, chọn vùng cần chuyển thành giá trị rồi chạy code:

Option Explicit

Sub NT()
Dim cll As Range, Rng As Range, Msg As String
Msg = MsgBox("Xác nhan chuyen cong thuc thanh gia tri o vùng chon?", vbYesNo)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If Msg = vbYes Then
    Set Rng = Selection
    For Each cll In Rng
        If Not cll.EntireRow.Hidden Then
            cll.Value = cll.Value
        End If
    Next
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[hml89]

Chắc phải dùng tới VBA, chọn vùng cần chuyển thành giá trị rồi chạy code:

Option Explicit

Sub NT()
Dim cll As Range, Rng As Range, Msg As String
Msg = MsgBox("Xác nhan chuyen cong thuc thanh gia tri o vùng chon?", vbYesNo)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If Msg = vbYes Then
    Set Rng = Selection
    For Each cll In Rng
        If Not cll.EntireRow.Hidden Then
            cll.Value = cll.Value
        End If
    Next
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

Đúng là VBA hay thiệt, mỗi tội là mình chưa biết dùng ahihi