用日期格式替換字符「 - 」

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 

離開的日期爲日期，你可以對計算，而不是將它們轉換爲文本都是沒用的超出實際日期的可視化表示。