Verschuiven indien lege cel

[Rusty1979]

In dit voorbeeldbestandje is het de bedoeling dat alle gegevens netjes onder elkaar komen te staan.
Maar zoals je ziet staan de gegevens in rij 6 scheef.

Nou heb ik een macro gevonden die dit netjes herstelt, maar als ik een tabblad heb met meer dan 100.000 regels dan werkt dit niet meer, Excel blijft daarop hangen, wellicht omdat deze methode niet heel handig is voor veel data?

Weet iemand misschien een beter script om de rijen, waarin een waarde ontbreekt op te schuiven?
Alleen kolom H hoeft gecheckt te worden op lege waarden.

Sub Verschuiven()

Dim i As Long

With ActiveWorkbook.Sheets(1)
 
    For i = 10 To 1 Step -1
 
        If .Cells(i, "H") = "" Then
 
            .Cells(i, "H").Delete Shift:=xlToLeft
 
        End If
 
    Next i
 
End With
 
End Sub

 

[arrie23]

Wellicht zonder macro (weet niet of het snel is)
Selecteer kolom H: Via CTRL+G (Ga naar) - Speciaal - Lege Waarden selecteer je alle lege cellen in kolom H.
Dan: CTRL+- (Verwijderen) : cellen naar links verplaatsen

 

[Rusty1979]

Geniaal!

Ik heb jouw stappen in VBA gezet:

Range("H:H").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlToLeft

...en het werkt snel én perfect!

Heel erg bedankt.

 

[Rusty1979]

Ik had iets te vroeg gejuicht.

Ik kwam toch nog een probleempje tegen, namelijk dat de macro vastloopt als hij geen lege cellen kan vinden.
Maar dit los ik wel op door een check te doen op het aantal cellen in die kolom in vergelijking met een andere kolom en alleen bij een mismatch de macro uit te voeren.

 

[arrie23]

Zet dit erbij in VBA:
On Error Resume Next