Hej

Jag har en logg där jag har fyra fält.

Datum, Tid, Antal, Applikation

Itifrån dessa fält skapar jag ett pivodiagram för att se hur användandet av applikationer ser ut över tiden. För att spara plats så vill jag ta bort alla rader där Antal = 0 ,fast å andra sidan så vill jag behålla nollan om nästa eller föregående värde inte är noll, det blir snyggare i diagrammet då.

Ett annat alternativ är om man har tre celler med värdet noll så tar man bort raden i mitten.

For i = WorksheetFunction.CountA(Range("A:A")) To 2 Step -1
    If Cells(i, 1) = 0 And Cells(i - 1, 1) = 0 Then Cells(i, 1).Delete Shift:=xlUp
Next