смена местами числовых данных в ячейке

[Roleg]

Добрый день!
Господа, помогите с такой ситуацией есть данные, где в столбцах находятся числа - даты в таком виде - "20100101". Необходимо преобразовать их вид 01.01.2010 (поменять местами цифры и поставить точки).
Спасибо.

[Hugo121]

Кто-нибудь что-нибудь понял?
Если подходить к решению практически

P.S. Ладно, если без занудства - поменяйте формат. Должно сработать - если не наврали

[Roleg]

даны данные в столбце по строкам :
20100101
20100102
20100103
20100104

необходимо получить:

01.01.2010
02.01.2010
03.01.2010
04.01.2010

P/s/ изменение формата не помогает выдает #########

[MCH]

=ДАТА(ЛЕВСИМВ(A1;4);ПСТР(A1;5;2);ПСТР(A1;7;2))

[Roleg]

Сообщение от MCH

=ДАТА(ЛЕВСИМВ(A1;4);ПСТР(A1;5;2);ПСТР(A1;7;2))

Спасибо, но необходимо изменить в этой же ячейке

[MCH]

Сообщение от Roleg

Спасибо, но необходимо изменить в этой же ячейке

Выделяйте нужный диапазон и запустите макрос:

Sub www()
Dim x
For Each x In Selection
    If x Like "########" Then x.Value = DateSerial(x \ 10000, x \ 100 Mod 100, x Mod 100)
Next
End Sub

[JIeIIIa]

В архиве макрос. Заменит YYYYMMDD на DD.MM.YYYY

[Roleg]

Спасибо, работает!

[Hugo121]

Странно, у меня изменение формата помогло. И в той же ячейке...
Если конечно "в столбцах находятся числа - даты в таком виде - "20100101"