Excel - VBA код за изтриване на данни в ред при запазване на формули

Проблем

Работя по електронна таблица, където трябва да копирам данни в нов лист. След като данните се копират, искам да изтрия данните от реда от оригиналния лист, без да губя формулите. Как може да се приложи това в VBA?

Решение

След като въведете кода по-долу, изберете клетка от реда, в който искате да запазите формулата и изпълнете кода.

 Sub KeepFormulas () Dim sRow, lCol As Integer sRow = ActiveCell.Row lCol = Клетки (sRow, Columns.Count). Край (xlToLeft). )) Ако cell.HasFormula = False тогава cell.ClearContents Следващата клетка End Sub 

Благодарение на MSL за този съвет.