Excel. Преобразование даты⁠⁠

Что и как копируете, что и как вставляете?

Возможны разные варианты

1. В исходных данных в ячейках может содержаться как текст, напоминающий дату, так и числовое значение, отформатированное как дата.

2. Копировать можно .Value, .Value2, .Text - в зависимости от п.1 они будут давать разный результат.

Соответственно, в зависимости от того, что скопировали, обрабатывать результат нужно по-разному. Ну и вставлять тоже - в виде текста? В виде числового значения с последующим форматированием в виде даты?

В первых двух строках - текст, в следующих - даты с разным форматированием.
Value и Value2 отличаются тем, что в случае даты содержат данные разных типов: Date и Double соответственно.

Option Explicit

Sub qwe()

Dim i As Long

For i = 1 To 4

Debug.Print i,

Debug.Print "["; Cells(i, 1).Value; "] = "; TypeName(Cells(i, 1).Value),

Debug.Print "["; Cells(i, 1).Value2; "] = "; TypeName(Cells(i, 1).Value2),

Debug.Print "["; Cells(i, 1).Text; "] = "; TypeName(Cells(i, 1).Text)

Next

End Sub

Что и как копируете, что и как вставляете?

Возможны разные варианты

1. В исходных данных в ячейках может содержаться как текст, напоминающий дату, так и числовое значение, отформатированное как дата.

2. Копировать можно .Value, .Value2, .Text - в зависимости от п.1 они будут давать разный результат.

Соответственно, в зависимости от того, что скопировали, обрабатывать результат нужно по-разному. Ну и вставлять тоже - в виде текста? В виде числового значения с последующим форматированием в виде даты?

В первых двух строках - текст, в следующих - даты с разным форматированием.
Value и Value2 отличаются тем, что в случае даты содержат данные разных типов: Date и Double соответственно.

Option Explicit

Sub qwe()

Dim i As Long

For i = 1 To 4

Debug.Print i,

Debug.Print "["; Cells(i, 1).Value; "] = "; TypeName(Cells(i, 1).Value),

Debug.Print "["; Cells(i, 1).Value2; "] = "; TypeName(Cells(i, 1).Value2),

Debug.Print "["; Cells(i, 1).Text; "] = "; TypeName(Cells(i, 1).Text)

Next

End Sub

Его нужно превратить в такой:

Вот так выглядит в исходнике (общий формат):

это странное поведение...
в экселе дата для вычислений используется как число - если в нужном столбце у тебя именно дата представлена в виде dd.mm.yy - то такого быть не должно, а вот если в исходном файле вместо даты какая-то дичь изначально датой не являющаяся но представленная в виде dd.mm.yy то эксель просто реально может не узнавать год - я вижу решением только указать дату в явную в исходнике (т.е. руками преобразовать все поля в реальную дату чтобы эксель понимал сколько там дней/месяцев/лет путём подмены dd.mm.yy на dd.mm.20yy) - ну или писать костыльку которая сделает это за тебя перед основной обработкой

ЗЫ:

если есть кусок исходного файла и код не стрёмно показать - выложи сюда - глянем чё как

В исходном файле сделайте поиск и замена,
найти: .24
заменить на: .2024