Chào A/C và các Bạn!
Hiện tại Em đang tập viết code:
Copy công thức, rồi paste dạng Value (nhằm giảm bớt khối công thức khổng lồ cho file và chỉ tính toán khi chạy code)
Ở bảng tính trong file đính kèm những cột tô mầu xanh là những cột có công thức. Em đang muốn thực hiện copy công thức ở dòng số 10, những cột tô mầu xanh. Rồi pase xuống các cột tương ứng từ dòng 11:20 dạng Value
Hiện tại các vùng công thức ko liên nhau, nó cách cột nên Em phải làm 3 code để chạy từng cột một. Em mong A/C và các bạn giúp Em viết code ngắn gọn hơn.
Mong A/C và các Bạn giúp. Em cám ơn!
Đây là code em đang làm. Mong A/C đừng cười ạ
Sub Copy_Paste_ColumnI() 'COPY VA PASTE COT IOn Error Resume Next
Sheet1.Range("I10").Select
Selection.Copy
Sheet1.Range("I11:I20").Select
Selection.PasteSpecial Paste:=xlPasteFormulas
End Sub
Sub Copy_Paste_ColumnL() 'COPY VA PASTE COT LOn Error Resume Next
Sheet1.Range("L10").Select
Selection.Copy
Sheet1.Range("L11:L20").Select
Selection.PasteSpecial Paste:=xlPasteFormulas
End Sub
Sub Copy_Paste_ColumnO() 'COPY VA PASTE COT OOn Error Resume Next
Sheet1.Range("O10").Select
Selection.Copy
Sheet1.Range("O11:O20").Select
Selection.PasteSpecial Paste:=xlPasteFormulas
End Sub
Sub CopyAndPasteFull() 'Làm một bottem trong sheet để bấmCopy_Paste_ColumnI
Copy_Paste_ColumnL
Copy_Paste_ColumnO
End Sub