Slette gamle data fra et regneark

Gene er på udkig efter en måde til hurtigt at slette data fra et regneark baseret på den dato i en bestemt kolonne. Hvis datoen er ældre end i dag (datoen er passeret) så rækken udgå.

Dette kan være temmelig nemt gøres med en makro. Alt du behøver at gøre have makro trin gennem dataene og sammenligne datoen i hver række til dags dato. Hvis datoen er mindre end i dag, så Slet metode bruges på EntireRow objekt.

Sub DeleteRows1 ()
Dim x As Long
Dim iCol As Integer

iCol = 7 'Filter alle på Col G

For x = Cells (Cells.Rows.Count, iCol) .End (xlUp) .Row Til 2 Step -1
Hvis Cells (x, iCol) .Value <Date Så
Celler (x, iCol) .EntireRow.Delete
End hvis
Næste
End Sub

I dette eksempel makro kontrol kolonne G (i iCol variabel) til dato. Hvis din date er i en anden kolonne, så skal du foretage ændringen til variablen. Afhængig af antallet af rækker af data i regnearket, kan makroen også tage lang tid at køre.

Hvis du bemærker en forsinkelse i ydelse, så kan du ønsker at bruge en anden tilgang. Det følgende eksempel bruger Autofilter kapaciteter Excel til først filtrere oplysningerne kun at vise de gamle data, og derefter sletter disse rækker.

Sub DeleteRows2 ()
Dim datoer som Range
Dim nRows As Double
Dim currDate Som Variant

»Format datoer som tekst
Range ("Datoer"). TalFormat = "@"
»Datoen i talformat Dagens
currDate = CDbl (Dato)
Range ("datoer") Autofilter Field:. = 1, _
Kriterier1: = "<" & currDate
nRows = Range ("Datoer"). Rows.Count
Rækker ("2:" & nRows) .Select
Selection.Delete Shift: = xlUp
Range ("Datoer"). Autofilter
Range ("Datoer"). TalFormat = "m / d / yyyy"
Range ("C2"). Vælg
End Sub

Denne makro forudsætter, at du har taget skridtet til at tildele et navn til din dataområdet. Vælg alle cellerne i din datatabel-inklusive alle materialer række-og give det navnet "datoer". Når du kører makroen, bruger dette område som mål for Autofilter.

ExcelTips er din kilde til omkostningseffektiv Microsoft Excel træning. Dette tip (3384) gælder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finde en version af dette tip til båndet grænseflade Excel (Excel 2007 og nyere) her: slette gamle data fra et regneark.


© 2019 Zajacperrone.com | Contact us: webmaster# zajacperrone.com