Преобразование чисел в дату (MS Excel)

[Ovsjano4ka]

Добрый день!
Столкнулась с проблемой - список из 7991 строк, в эксельке, в которых неверно проставлены даты. То есть мне нужно, что бы в ячейке было(к примеру) 01.01.2001, а там 20010101 и ячейка в текстовом формате. Мне нужна ячейка с датой в правильном формате) Помогите, пожалуйста

[digitalis]

Стесняюсь спросить - какой язык программирования подразумевается. Или ёксель ?
И что изменится, если там не 7991 строк, а 100500? Функция преобразования будет одна. Я так думаю.

[Ovsjano4ka]

Это в эксель, и количество строк - совсем не важно.
Просто хотелось обозначить, что нужно преобразовать много ячеек, не парочку. Пробовала "подставить", но так как числа (текст, точнее) в ячейках разный - способ не подходит

[digitalis]

Ну раз ёксель, то х.з., а на паскале это одна строчка кода.

[Аватар]

А что значит не верно? Там везде в виде 20010101 или есть и 2001-01-01, и 01012001, и прочее как придется? Или такое - 20173030?

[Ovsjano4ka]

просто мне нужно - что бы были именно даты с именно 01.01.2001 а не текст 20010101. перебивать в ручную очень тяжко)
вообще, глобально, мне необходимо отфильтровать таблицу по датам рождения. а с этими 20010101 это занимает много времени. вся таблица у меня на 32 тыщи строк, и из них вот эти 7991 - с неверно вписанными датами

[Serge_Bliznykov]

Овсяночка, предлагаю такой вариант ("ручной").

1) рядом со стобцом, где 20010101 создаём ещё один пустой столбец (или берём любой свободный)

2) в ячейку этого свободного столбца вписываем формулу

=ДАТА(ПСТР(A1;1;4); ПСТР(A1;5;2); ПСТР(A1;7;2))

вместо A1 должна быть ваша ячейка


3) протягиваем формулу до конца столбца (где кончаются данные в исходном столбце


4) после того, как убедились, что в этом столбце то, что надо,
выделяем его, нажимаем "Копировать"
переходим в исходный столбец, (это та, где текст вида 20010101), нажимаем Пр.Кнопка.Мышки - Специальная вставка - Значения.

5) исходный столбец выделить, задать ему формат ячеек "Дата"

6) удаляем дополнительный столбец (там будет уже ошибка "#ЗНАЧ!")

готово. задача решена.

p.s. можно вместо этого использовать макрос, если знаете, что такое макросы и не боитесь их использовать!

[Aleksandr H.]

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

p.s. можно вместо этого использовать макрос, если знаете, что такое макросы и не боитесь их использовать!

может и костыль но все же UDF

Function onlyNum$(rng As Range)
With CreateObject("VBScript.RegExp")
.Global = True: .IgnoreCase = True: .MultiLine = True: .Pattern = "\D+"
onlyNum = .Replace(rng.Value, "")
onlyNum = Mid(onlyNum, 1, 4) & "-" & Mid(onlyNum, 5, 2) & "-" & Mid(onlyNum, 7, 2)
End With
End Function

p.s.
как по мне, то "помощь" по вопросах екселя, без исходного файла извращения, или же мой скил угадывать что надо сделать с какими данными недостаточно прокачан