用日期格式替换字符“ - ”

Question

我想用“。”替换“ - ”字符。在包含日期信息的单元格内。

与下面的代码，这与文本格式的细胞中获得，但不注日期：

Worksheets("Sheet1").Columns("A").Replace _ 
What:="-", Replacement:=".", _ 
SearchOrder:=xlByColumns, MatchCase:=True 

我我能做到这一点，但与日期格式细胞？

Answer 1

尝试，

With Sheets("Sheet1") 
    .Cells(1, 1).CurrentRegion.Columns(1).NumberFormat = "mm.dd.yyyy;@" 
End With 

离开的日期为日期，你可以对计算，而不是将它们转换为文本都是没用的超出实际日期的可视化表示。