Автоматическая замена данных в таблице Excel?

Question

[WSGlebKavash]

В таблице Excel в колонку записаны даты в формате: "18 октября 1986 года", "9 октября 1977 года", "8 октября 1971 года"... Существует ли функция, которая будет менять данные в формат: "18.10.1986", "09.10.1977", "08.10.1971"...?

Comments

[Akina]

Что значит "менять"? Вводишь вручную "18 октября 1986 года", а в ячейку записывается "18.10.1986" с форматом Дата? Или есть колонка с полным форматом даты, и её надо конвертировать в краткий? или что-то ещё?
В любом случае придётся делать свой конвертор на VBA.

Answer 1

[Григорий Боев]

Что-то вроде этого

Sub Replace_Dates()
  Dim i As Long
  Dim v As String
  For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    v = Cells(i, 1).Value

    v = Replace(v, " января", ".1.")
    v = Replace(v, " февраля", ".2.")
    v = Replace(v, " марта ", ".3.")
    v = Replace(v, " апреля ", ".4.")
    v = Replace(v, " мая ", ".5.")
    v = Replace(v, " июня ", ".6.")
    v = Replace(v, " июля ", ".7.")
    v = Replace(v, " августа ", ".8.")
    v = Replace(v, " сентября ", ".9.")
    v = Replace(v, " октября ", ".10.")
    v = Replace(v, " ноября ", ".11.")
    v = Replace(v, " декабря ", ".12.")
    v = Replace(v, " года", "")

    Cells(i, 1).Value = CDate(v)
  Next i
End Sub

Или скопировать в Notepad++, сделать эти замены по-быстрому вручную, и скопировать обратно.

Comments

[WSGlebKavash]

Григорий Боев, Большое спасибо за предложение! Я участвую в Чемпионате по профессиональному мастерству «Профессионалы» и Чемпионате высоких технологий (WorldSkills Russia). Сегодня было 2 сессии. В одной из сессий надо было импортировать данные из документа в базу. Мне удалось решить проблему, изменив русские имена месяцев на английские. Так что ваш скрипт не понадобился, но всё равно спасибо!