用date格式replace单元格上的字符“ – ”

我想用“”replace“ – ”字符。 在包含date信息的单元格内。

使用下面的代码，这是在文本格式的单元格中获得的，但没有使用date：

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

我可以做到这一点，但具有date格式的细胞？

Answer 1

尝试，

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

将date保留为可以计算的date，而不是将date转换为超出实际date直观表示的无用文本。