Pokud ve sloupci A zacina datum hned prvnim radkem a v datech neni prazdny radek, lze to udelat takto (zacatek datumu lze samozrejme menit hodnotou 'i').
Sub PrevodFormatuDatumu()
Dim i As Long
i = 1 'prvni datum je v prvnim radku
Do Until Len(Cells(i, 1)) = 0
Cells(i, 1).NumberFormat = "dd.m."
i = i + 1
Loop
End Subcitovat
Sub PrevodFormatuDatumu()
Dim i As Long
i = 1 'prvni datum je v prvnim radku
Do Until Len(Cells(i, 1)) = 0
Cells(i, 1).NumberFormat = "dd.m."
i = i + 1
Loop
End Subcitovat