更改date格式VBA

我有一个date列，看起来像这样：

04-03-2013 01:57:32 PM IST

我试图改变它看起来像这样：

04/03/2013 13:57:32

我的代码：

Columns("D:E").Select Selection.Replace What:=" IST", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:=" IDT", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:="-", Replacement:="/", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False 

问题是它改变它看起来像这样：

04-03-2013 01:57:32 PM

只有当我在“PM”之后按下ENTER键时，它才会变成：

04/03/2013 13:57:32

我怎样才能自动做到这一点？

Answer 1

我想你只需要指定所需的数字格式：

 Selection.NumberFormat = "dd/mm/yyyy hh:mm:ss" ' or mm/dd/yyyy, not sure which you want! 

Answer 2

如果您想将原始date转换为如上格式化的“真实”Exceldate，那么请在常规模块中尝试：

 Option Explicit Sub ChangeDateTimeFormat() Dim Rng As Range Dim C As Range Set Rng = Range("D:E").SpecialCells(xlCellTypeConstants) For Each C In Rng With C If Right(.Text, 4) = " IDT" Or Right(.Text, 4) = " IST" Then .Value = DateValue(Left(.Text, Len(.Text) - 4)) + TimeValue(Left(.Text, Len(.Text) - 4)) .NumberFormat = "mm/dd/yyyy hh:mm:ss" End If End With Next C End Sub 

这只是在MDY格式的date进行testing。 如果你的date是DMY格式，这不起作用，我会进一步testing。