Lege cellen in rijen verwijderen

[Hans]

Ik wil in diverse rijen alle lege cellen verwijderen.
De lege cellen staan niet onder elkaar maar kris kras door elkaar in de
diverse rijen.
Dus met andere woorden, elke gevulde cel moet telkens zover mogelijk naar
links worden verplaatst.
Hoe kan ik dit makkelijk uitvoeren.

m.vr.gr.

Hans

[jan]

Hans,

Voor een eenmalige actie:

Selecteer het gebied waarom het gaat
Via Bewerken>Ga Naar>Speciaal>Lege waarden
worden de lege cellen geselecteerd.
Klik op Ctrl+-
En geef vervolgenn aan cellen naar links verplaatsen.

Jan

Post by Hans
Ik wil in diverse rijen alle lege cellen verwijderen.
De lege cellen staan niet onder elkaar maar kris kras door elkaar in de
diverse rijen.
Dus met andere woorden, elke gevulde cel moet telkens zover mogelijk naar
links worden verplaatst.
Hoe kan ik dit makkelijk uitvoeren.
m.vr.gr.
Hans

[Frits]

Er vanuitgaand dat er geen volledig lege kolommen of rijen zijn:
deze macro uitvoeren

Sub verwijderLeeg()
For i = 1 to Range("A1").offset(Selection.Rows.Count, 0).Row
For n = Range("A1").offset(0, Selection.Columns.Count).Column To 1
Step -1
If Cells(i, n) = "" Then _
Cells(i, n).Delete Shift:=xlShiftToLeft
Next n
Next i
End Sub

[Frits]

' Er vanuitgaand dat er geen volledig lege kolommen of rijen zijn:
' deze macro uitvoeren

Sub verwijderLeeg()
For i = 1 To
Range("A1").CurrentRegion.offset(Range("A1").CurrentRegion.Rows.Count,
0).Row
For n = Range("A1").offset(0,
Range("A1").CurrentRegion.Columns.Count).Column To 1 Step -1
If Cells(i, n) = "" Then _
Cells(i, n).Delete Shift:=xlShiftToLeft
Next n
Next i
End Sub

[Frits]

Onderstaande macro uitvoeren wanneer blad is geactiveerd

Sub verwijderLeeg()
For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
For n = Cells.SpecialCells(xlCellTypeLastCell).Column To 1 Step -1
If Cells(i, n) = "" Then _
Cells(i, n).Delete Shift:=xlShiftToLeft
Next n
Next i
End Sub

[Frits]

Of korter met behulp van antwoord Jan,
Sub verwijderLeeg()
Range(" a1:" &
Cells.SpecialCells(xlCellTypeLastCell).Address).SpecialCells(xlCellTypeBlanks).Delete
Shift:=xlToLeft
End Sub