Copy và paste value vào vùng đang được filter

[vuvietquang90]

Dear các cao thủ võ lâm,

Em có 1 vấn đề phải đối mặt hàng ngày đó là copy và paste value vào chính vùng em vừa filter để copy, nếu copy paste value bt thì sẽ không thể nào làm như vậy được, vậy các cao thủ có thủ thuật gì k chỉ giáo cho em với
File excel đính kèm đây ah

 

[phulien1902]

Dear các cao thủ võ lâm,

Em có 1 vấn đề phải đối mặt hàng ngày đó là copy và paste value vào chính vùng em vừa filter để copy, nếu copy paste value bt thì sẽ không thể nào làm như vậy được, vậy các cao thủ có thủ thuật gì k chỉ giáo cho em với
File excel đính kèm đây ah

Vấn đề của bạn dùng Code VBA chắc không khó.
Tôi muốn biết bài toán thực tế của bạn, để có cách giải quyêt vấn đề sát hơn.

 

[vuvietquang90]

Vấn đề của bạn dùng Code VBA chắc không khó.
Tôi muốn biết bài toán thực tế của bạn, để có cách giải quyêt vấn đề sát hơn.

Như file đính kèm đó bác, em có cột B chứa công thức, và e muốn paste value giá trị công thức để ra kết quả là giá trị A vào đúng 2 ô đang chứa công thức khi đã filter

 

[phulien1902]

Như file đính kèm đó bác, em có cột B chứa công thức, và e muốn paste value giá trị công thức để ra kết quả là giá trị A vào đúng 2 ô đang chứa công thức khi đã filter

Bạn thử với:

Sub Copy_Value()
    Dim i As Long, LR As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To LR
        If Range("A" & i).Value = "a" Then Range("B" & i).Value = Range("B" & i).Value
    Next i
End Sub

 

[vuvietquang90]

Bạn thử với:

Sub Copy_Value()
    Dim i As Long, LR As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To LR
        If Range("A" & i).Value = "a" Then Range("B" & i).Value = Range("B" & i).Value
    Next i
End Sub

bác có thể hướng dẫn cụ thể cho em cách add VBA vào file excel và cách chạy đc k? vụ này e hơi gà mờ bác ah

 

[phulien1902]

bác có thể hướng dẫn cụ thể cho em cách add VBA vào file excel và cách chạy đc k? vụ này e hơi gà mờ bác ah

Bạn làm như sau:
1. Mở File của bạn ra
2.Click phải chuột vào Tab Sheet ----> View Code --->Insert ---->Module
3.Copy Code vào cửa sổ Module
4.Ghi lại.
5. Để chạy Code bấm vào Run Sub/UserForm( F5)