将日期和小时的“H”替换为“：”而不更改日期vba的格式

Question

我有各种日期（类型字符串），格式为 dd/mm/yyyy hhHmm ： dd/mm/yyyy hhHmm 我需要将它们转换为实际类型的日期，格式为 dd/mm/yyyy hh:mm ： dd/mm/yyyy hh:mm

我的问题是，当我手动执行替换命令时，一切正常，但如果我在宏中执行替换命令，它突然从 dd/mm/yy hhHmm 变为 mm/dd/yyyy hh:mm，这意味着我的数据全错了。

我用 for 循环 和 split 函数 解决了这个问题，我会把解决方案放在这里，所以也许有同样问题的其他人可以得到它作为感谢每次我在这里得到帮助时，你都感谢：

lastRowRan = Cells(Rows.Count, "B").End(xlUp).Row 
For Each cell In Range("I2:I" & lastRowRan)
        dateArray = Split(cell)
        dateArray(1) = Replace(dateArray(1), "H", ":")
        cell.Value = CDate(Format(CDate(dateArray(0) & " " & dateArray(1)), "dd/mm/yyyy hh:mm")) 
Next

但显然，由于这些日期有数千个，有时可能需要一点时间。所以我一直在想，有没有更快的方法？

.NumberFormat 似乎不起作用。

Answer 1

使用DateSerial(Year, Month, Day) 和TimeSerial(Hour, Minute, Second) 建立一个真实的约会：

Dim lastRowRan As Long
lastRowRan = Cells(Rows.Count, "B").End(xlUp).Row

Dim Cell As Range
For Each Cell In Range("I2:I" & lastRowRan)
    If Not IsDate(Cell.Value) Then
        Cell.Value = DateSerial(Mid$(Cell.Value, 7, 4), Mid$(Cell.Value, 4, 2), Left$(Cell.Value, 2)) + TimeSerial(Mid$(Cell.Value, 12, 2), Right$(Cell.Value, 2), 0)
        Cell.NumberFormat = "dd/mm/yyyy hh:mm"
    End If
Next Cell

Answer 2

试试：

Sub Test()

    Dim LastRow As Long
    Dim i As Long
    Dim ClearDate As Date

    LastRow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row '<= Change to cover your range

    For i = 1 To LastRow '<= Set the right start & end point
        With Sheet1 '<=Cahnge to fit your sheet
            ClearDate = CDate(Replace(Range("A" & i), "H", ":"))
            .Range("A" & i).Offset(0, 1).Value = ClearDate
        End With
    Next i

End Sub

结果：