Проблема с датами

[ambler]

Добрый день!

Прислали таблицу с датами... 500-600 строк, все даты сделаны по тупому типа 19-23.11.12.

Внимание вопрос: Можно как то автоматизировать процесс, чтобы вручную не перебивать все 600 строк. Надо прибавить 3 дня к конечному сроку и еще 1 день после.

Т.е.: Было 19-23.11.12 Стало: 26-27.11.12. Пока сам попытаюсь разобраться.

[ShAM]

Может, так?

[ambler]

Может, так?

Спасибо, гениально 

[kuklp]

Работает с высделенным диапазоном:

Код Выделить Развернуть

Public Sub www()
    Dim c As Range, d As Date
    For Each c In Selection.Cells
        d = Mid$(c.Value, InStr(1, c, "-") + 1)
        c = Day(d + 3) & "-" & d + 4
    Next
End Sub

[ambler]

Работает с высделенным диапазоном:

Код Выделить Развернуть

Public Sub www()
    Dim c As Range, d As Date
    For Each c In Selection.Cells
        d = Mid$(c.Value, InStr(1, c, "-") + 1)
        c = Day(d + 3) & "-" & d + 4
    Next
End Sub

И вам спасибо огромное