vba - 查找和替换 vba 更改日期格式

Question

我有一系列带有日期的单元格，其中包含必须替换的值。一旦我使用一般的查找和替换来做到这一点 - 它工作顺利。当我在 VBA 中执行此操作时，单元格的格式会发生更改，并且日期会转换为错误的日期，例如12/10/2015(10 月 12 日)，但变为 10/12/2015(12 月 10 日)。这是代码:

Sub find_replace()
ActiveSheet.Range("T1", Range("T1").End(xlToRight).Offset(0, -2)).Select
With Selection
.NumberFormat = "dd/mm/yyyy"
.Replace What:="P.", Replacement:="", LookAt:=xlPart,     SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False,   ReplaceFormat:=False
.Replace What:=".", Replacement:="/", LookAt:=xlPart,    SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False,    ReplaceFormat:=False
End With
End Sub

请善意建议如何摆脱这个烦人的问题。谢谢。

Answer 1

这是由于 .NumberFormat .尝试将其更改为 .NumberFormat = "mm/dd/yyyy"
编辑:另外，如果完全没有必要，也许只是注释掉/删除该行。

Edit2:以上不是问题。如果在您运行宏并在 dd/mm/yyyy 中设置日期之后怎么办？格式，你做文本到列？突出显示日期，转到 Data--> Text to Columns，选择“Delimited”并保留为“Tab”，但在下一个屏幕(第 3 步，共 3 步)中，选择“Column data format”为“Date: MDY”，并单击“完成”。