Как искать значения столбца для даты и заменять сегодняшнюю дату в Excel

Question

У меня есть файл Excel с именем столбца «Время получения» с другой датой и временем (может быть в строке или в формате даты)

13/Jan/2019 10:00:00 PM
17/Jan/2019 06:01:00 AM
16/Jan/2019 08:00:00 PM
17/Jan/2019 04:01:00 AM
15/Jan/2019 06:00:00 AM
16/Jan/2019 02:01:00 PM
16/Jan/2019 09:00:00 PM
17/Jan/2019 05:01:00 AM
16/Jan/2019 04:00:00 PM
17/Jan/2019 12:01:00 AM
16/Jan/2019 05:00:00 PM
17/Jan/2019 01:01:00 AM
16/Jan/2019 07:30:00 PM
14/Jan/2019 03:31:00 AM
16/Jan/2019 08:20:00 PM
17/Jan/2019 04:21:00 AM
11/Jan/2019 10:00:00 PM

Теперь я хочу только заменить даты в этом столбце на сегодняшнюю и сохранить время, как я могу это сделать? Ожидаемый результат будет выглядеть так:

17/Jan/2019 10:00:00 PM
17/Jan/2019 06:01:00 AM
17/Jan/2019 08:00:00 PM
17/Jan/2019 04:01:00 AM
17/Jan/2019 06:00:00 AM
17/Jan/2019 02:01:00 PM
17/Jan/2019 09:00:00 PM
17/Jan/2019 05:01:00 AM
17/Jan/2019 04:00:00 PM
17/Jan/2019 12:01:00 AM
17/Jan/2019 05:00:00 PM
17/Jan/2019 01:01:00 AM
17/Jan/2019 07:30:00 PM
17/Jan/2019 03:31:00 AM
17/Jan/2019 08:20:00 PM
17/Jan/2019 04:21:00 AM
17/Jan/2019 10:00:00 PM

Посмотрел lookup и vlookup, но, похоже, не служит этой цели. Большое спасибо!

Answer 1

Кажется, это работает:

Option Explicit

Public Sub changeDates()

    Dim cel As Range
    Dim rng As Range
    Dim cellTime As Variant

    Set rng = Sheet1.Range("A1:A" & Sheet1.Range("A1").End(xlDown).Row)

    For Each cel In rng.Cells

        cellTime = Format(TimeValue(cel), "hh:mm")
        cel.Value = Format(Date, "d/mmm/yyyy") + " " + cellTime

    Next cel

End Sub

Answer 2

=TODAY() + TIME(HOUR(A1),MINUTE(A1),SECOND(A1))