VBA Excel - For Each

[Branscombe]

Ahoj všem, možná bych to někde vygooglil, ale třebas někdo odpověď zná a já jí nebudu muset pracně vyhledávat.

Potřebuji v oblasti "(A1:Z1)" smazat všechny sloupce když je buňka v prvním řádku prázdná. Používám "For Each Cll in Oblast" kde Cll je buňka, ale v tomto případě mi to smaže první sloupec a přeskočí na další. Neověřuje již znovu sloupec "A". Jak mu říct aby prošel oblast zprava doleva ? Díky předem

[Reklama]

[Poki]

asi takto:

Kód: Vybrat vše

Sub DELcolumn()
Dim i As Long

For i = 26 To 1 Step -1 'Z je 26. sloupec
  If Len(Cells(1, i)) = 0 Then
     Columns(i).Delete
  End If
Next i

End Sub

[Branscombe]

Díky, takto mě to taky napadlo, ale vzhledem k velkému počtu sloupců jsem myslel že by šlo použít for each s podmínkou zprava ... :-/ Bylo by to snad rychlejší ...