VBA将带毫秒的dd/mm/yyyy时间戳转可排序日期时TextToColumns出现月日转置异常

• 对存储了含时分秒毫秒的日期时间文本的目标列执行批量转换，生成Excel可识别、支持筛选时按新旧顺序排序的标准日期时间格式。
• 原始输入内容参考样例：24/03/2021 10:30:35:540

• 操作步骤：选中目标列，使用「TextToColumns（分列）」的固定宽度功能，在第16字符位置设置分列分隔线，列数据格式选择常规。
• 手动操作产出结果：单元格内容转换为24/03/2021 10:30:00 AM，该结果可被Excel筛选功能正常识别并按时间排序。

• 宏录制生成的对应VBA代码：

Columns("P:P").Select
    Selection.TextToColumns Destination:=Range("P1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(16, 1)), TrailingMinusNumbers:=True

• 异常现象：手动执行相同分列操作时处理结果完全正常，但运行上述录制的VBA宏时，会出现日期格式错位问题——仅对可被系统识别为美式日期格式的单元格生效。
• 异常案例：原始单元格内容为07/03/2021 05:46:45:328（对应实际日期为2021年3月7日），手动分列可得到正确结果，但运行VBA代码后会发生月、日数值转置，得到错位结果3/07/2021 5:46 :45:328（被错误识别为2021年7月3日）。

• 方案1：不强制使用TextToColumns功能，通过公式=LEFT(P2,16)提取文本前16位字符，将结果粘贴为值后，尝试通过「设置单元格格式-自定义」设置为d/mm/yyyy h:mm格式，该方案无法实现正确的日期转换，无法生成可被识别排序的日期值。

• 找到可通过VBA实现的稳定转换方案，将其整合到现有宏流程中，完成带毫秒的非标准日期文本到可排序、可识别的标准日期时间格式的批量转换。

内容的提问来源于stack exchange，提问作者Rank_Amatuer_VBA