Excel: codice VBA per l'eliminazione dei dati in fila mantenendo le formule

Problema

Sto lavorando su un foglio di lavoro in cui devo copiare i dati su un nuovo foglio. Una volta copiati i dati, voglio cancellare i dati nella riga dal foglio originale, senza perdere le formule. Come può essere implementato in VBA?

Soluzione

Una volta implementato il codice sottostante, seleziona una cella dalla riga da cui vuoi mantenere la formula ed esegui il codice.

 Sub KeepFormul () Dim sRow, lCol As Integer sRow = ActiveCell.Row lCol = Celle (sRow, Columns.Count) .End (xlToLeft) .Column Per ogni cella In Range (Celle (sRow, 1), Celle (sRow, lCol )) Se cell.HasFormula = False Then cell.ClearContents Fine cella Fine Sott 

Grazie a MSL per questo suggerimento.