Sub Macro1()
Range("F2:F7").Copy
Range("C2").PasteSpecial xlPasteValues
Range("C2").PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End Sub
ajinomoto đã viết:Các Bạn giúp mình tạo macro copy với. Mình chỉ muốn copy giá trị và các định dạng trừ công thức ở cột tồn cuối lên tồn đầu thôi. Xin xem file đính kèm. Mình chưa biết gì về VB.
Range("c2:C7").Value = Range("f2:f7").Value
He... he... Thiếu mất copy Format như tác giã yêu cầuMr Okebab đã viết:Bạn sửa code thành :
PHP:Range("c2:C7").Value = Range("f2:f7").Value
Thân!