Excel - VBA kods datu dzēšanai rindā, saglabājot formulas

Izdevums

Es strādāju pie izklājlapas, kurā ir jāpārkopē dati uz jaunu lapu. Kad dati ir kopēti, es vēlos dzēst rindā esošos datus no sākotnējās lapas, nezaudējot formulas. Kā to var īstenot VBA?

Risinājums

Kad esat ieviesis tālāk norādīto kodu, atlasiet šūnu no rindas, kurā vēlaties saglabāt formulu, un palaidiet kodu.

 Sub KeepFormulas () Dim sRow, lCol As Integer sRow = ActiveCell.Row lCol = Šūnas (sRow, Columns.Count) .End (xlToLeft). Kolonna katrai šūnai diapazonā (šūnas (sRow, 1), šūnas (sRow, lCol )) Ja cell.HasFormula = False Tad cell.ClearContents Nākamā šūna End Sub 

Paldies MSL par šo padomu.