Cyklus "Do - While ... Loop"
'lze použít, když nevíme počet opakování, opakuje se dokud je podmmínka pravdivá
Do While
' zde napíšeme kod, který se má spustit ( nebo více kodu )
Loop
'------------------------------------
Dim cislo As Integer
cislo = 1
Do While cislo < 20
Worksheets("List1").Cells(cislo,1).value = cislo * 2
cislo = cislo + 1
Loop
'tento kod udělá 19 výpočtů a zapíše je do List1 do 1. sloupečku, podud bude stále "cislo" menší než 20
'------------------------------------
' příkaz lze ukončit i explicitně příkazem - Exit Do
If cislo = 10 Then Exit Do
Loop