balbesпростите не совсем понял как это должно работать?
простите, вы бы тогда сразу уже дали файл, чтобы я мог вписать конкретные номера столбцов и т.п., я ж их откуда знаю - я просто дал наводку
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub t()
Dim i As Integer
i = 4
Do Until Cells(i, 7 ) = "" And Cells(i, 8 ) = ""
Cells(i, 7 ) = Format(Cells(i, 7 ), "yyyy.mm.dd")
Cells(i, 8 ) = Format(Cells(i, 8 ), "yyyy.mm.dd")
i = i + 1
Loop
End Sub
только это надо не в модуле расположить, а в модуле листа, либо перед Cells придется указывать лист
