Excel - VBA kode for at slette data i række, mens du holder formler

Problem

Jeg arbejder på et regneark, hvor jeg skal kopiere data til et nyt ark. Når dataene er kopieret, vil jeg slette dataene i rækken fra originale ark uden at miste formlerne. Hvordan kan dette implementeres i VBA?

Opløsning

Når du har implementeret koden nedenfor, skal du vælge en celle fra den række, du vil beholde formlen fra og køre koden.

 Sub KeepFormulas () Dim sRow, lCol som integer sRow = ActiveCell.Row lCol = Celler (sRow, Columns.Count) .End (xlToLeft) .Søjle for hver celle i rækkevidde (celler (sRow, 1), celler (sRow, lCol )) Hvis cell.HasFormula = False Then cell.ClearContents Næste celle End Sub 

Tak til MSL for dette tip.