excel - Selection.Replace ("."for "-") 应用于 "dd.mm.yyyy"返回 "mm-dd-yyyy"

Question

第一次在论坛上提问，请耐心等待:D。

使用宏时，我需要更改来自 SAP 的文件的整个列日期。日期的通用格式为“dd.mm.yyyy”。我需要替换“。”对于“-”，并应用日期格式“dd-MM-yyyy”。我使用此代码:

range(Selection, Selection.End(xlDown)).Select
    Selection.NumberFormat = "dd-mm-yyyy"
    Selection.Replace What:=".", Replacement:="-", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

该方法以“mm-dd-yyyy”形式返回日期。正如我所说，我需要“dd-mm-yyyy”。有人知道如何纠正这个问题吗？谢谢!

Answer 1

选择您想要转换并运行的单元格:

Sub dural()
    Dim r As Range
    For Each r In Selection
        t = r.Text
        ary = Split(t, ".")
        r.Clear
        r.NumberFormat = "dd-mm-yyyy"
        r.Value = DateSerial(ary(2), ary(1), ary(0))
    Next r
End Sub