[已解决]如何将日期恢复正常

雄鹰2013

A列日期倒置了，如何恢复正常的顺序

最佳答案

月排行榜 / 总排行榜

wayy

2014-11-7 10:00

规范日期格式以后设置日期格式就行了。

跳转到最佳答案楼层

wayy

规范日期格式以后设置日期格式就行了。

雄鹰2013

wayy 发表于 2014-11-7 10:00
规范日期格式以后设置日期格式就行了。

谢谢你，但通过循环vba是否可以

爱疯

Sub test()
    Dim A, B, i%
    A = Range("a1").CurrentRegion
    For i = 1 To UBound(A)
        If InStr(A(i, 1), "/") Then
            B = Split(A(i, 1), "/")
            A(i, 1) = "'" & B(2) & "-" & B(0) & "-" & B(1)
        End If
    Next i
    [a1].Resize(i - 1) = A
End Sub