Как изменить два типа формата даты в столбце на один в Excel?

Question

У меня есть файл Excel, в котором существует два типа формата даты в столбце даты. Например:

1/31/10
02/01/2010

Мне нужен один уникальный формат, например - MM / dd / yyyy (01.02.2010). Как этого добиться? До сих пор не удалось сделать это с помощью функции DateValue (cellID), поскольку первый формат (1/31/10) не поддерживается, а также произошел сбой при форматировании всего столбца.

Answer 1

Сначала поместите эту пользовательскую функцию в стандартный модуль:

Option Explicit
Public Function zDate(rng As Range) As Date
    Dim arr, yr As String
    arr = Split(rng.Text, "/")
    If Len(arr(2)) = 2 Then
        yr = "20" & arr(2)
    Else
        yr = arr(2)
    End If

    zDate = DateSerial(CLng(yr), CLng(arr(0)), CLng(arr(1)))
End Function

С данными в столбце A ( предполагается в порядке месяц / день / год ), в B1 введите:

=zdate(A1)

и затем примените желаемый формат к столбцу B :