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.
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.
Code:
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