Coppy một ô rồi paste luôn tại ô đó!

[sep_hatxel]

Mong các bạn giúp mình một đoạn code coppy và paste tại cùng địa chỉ một ô như sau: ví dụ mình coppy ô A4 thì paste luôn tại ô A4, rùi xuống ô A5 coppy ô A5 rồi paste luôn tại ô A5, cứ tiếp tục như vậy cho đến ô A2000. Công việc này nghe có vẻ buồn cười nhưng mong các bạn bỏ qua và giúp mình đoạn code này ạ! Xin chân thành cảm ơn!
ps: Việc coppy và paste này phải thực hiện theo trình tự từng ô một: coppy và paste xong ô này rồi mới tiếp tục thực hiện ô tiếp theo!

 

[dhn46]

mình chưa đọc file của bạn nhưng mình đoán là bạn copy, paste value cho những ô có công thức tìm kiếm, như vậy sẽ tránh lỗi khi các file nguồn bị xoá... Code của bạ đây

Sub cp()
For i = 4 To 2000
    Range("a" & i).Copy
    ActiveCell.PasteSpecial xlValue
Next
End Sub

 

[sep_hatxel]

mình chưa đọc file của bạn nhưng mình đoán là bạn copy, paste value cho những ô có công thức tìm kiếm, như vậy sẽ tránh lỗi khi các file nguồn bị xoá... Code của bạ đây

Sub cp()
For i = 4 To 2000
    Range("a" & i).Copy
    ActiveCell.PasteSpecial xlValue
Next
End Sub

Mình đã thử code nhưng mình thấy phần code đã thực hiện đúng coppy nhưng khi paste thì lại paste tất cả các ô coppy đều vào ô A4? Mong bạn xem giúp coppy ô nào thì paste tại luôn ô đó ạ? Cảm ơn bạn rất nhiều!
ã

 

[ptm0412]

Sửa lại như sau:

Sub copyValue() 
For i = 4 To 2000
     Range("a" & i).Value = Range("a" & i).Value 
Next 
End Sub

Mà tại sao phải làm từng ô?
Làm 1 loạt cho xong chuyện, chứ đã dùng VBA là nó chạy ào ào, có kịp nhìn đâu mà làm từng ô?

Sub copyValue() 
     Range("A4:A2000").Value = Range("A4:A2000").Value 

End Sub