Excel - Kod VBA untuk memadamkan data secara berturut-turut sambil mengekalkan formula

Isu

Saya sedang menjalankan hamparan di mana saya perlu menyalin data ke lembaran baru. Sebaik sahaja data disalin, saya ingin memadam data dalam baris dari lembaran asal, tanpa kehilangan formula. Bagaimanakah ia dapat dilaksanakan di VBA?

Penyelesaian

Sebaik sahaja anda telah melaksanakan kod di bawah, pilih sel dari baris yang anda ingin simpan formula dan jalankan kod itu.

 Sub KeepFormulas () Dim sRow, lCol As Integer sRow = ActiveCell.Row lCol = Sel (sRow, Columns.Count) .End (xlToLeft) .Column For Each cell In Range (Cells (sRow, 1), Cells (sRow, )) Jika sel.HasFormula = Palsu Kemudian sel.ClearContents Sel Sel Sel Akhir 

Terima kasih kepada MSL untuk hujung ini.