VBA转换YYYYMMDD日期为DD/MM/YYYY格式时结果异常

格式错乱的核心原因是VBA隐式日期转换规则和本地澳区DMY日期顺序冲突：

1. 你拼接出的05/07/2022是字符串值，写入单元格时VBA会自动把符合日期特征的字符串转成日期类型数值，但VBA默认的字符串转日期逻辑是美式MDY（月/日/年）顺序，和澳区使用的DMY（日/月/年）顺序不一致，直接导致月、日字段识别错位。
2. 后续添加的.NumberFormat = "DD/MM/YYYY"仅修改单元格的显示格式，无法修正已经识别错误的底层日期值，自然无法得到正确结果。
3. 日期前导零丢失，是转成日期值后系统默认短日期格式的显示特性导致的。

方案1：生成标准日期值（推荐，支持后续日期计算） #

不要手动拼接日期字符串，直接用DateSerial函数按明确的年、月、日参数生成标准日期值，从根源避免字符串转日期的识别歧义，参考代码如下：

For i = 1 To lastRow
    ' 先将单元格值转为字符串，避免数值类型取位出错
    cbhDate = CStr(Cells(i, 62).Value)
    resultYear = CInt(Left(cbhDate, 4))
    resultMonth = CInt(Mid(cbhDate, 5, 2))
    resultDay = CInt(Right(cbhDate, 2))
    ' 按明确的年、月、日顺序生成日期，不存在识别偏差
    Cells(i, 62).Value = DateSerial(resultYear, resultMonth, resultDay)
    ' 设置目标显示格式
    Cells(i, 62).NumberFormat = "DD/MM/YYYY"
Next i

如果你原始的YYYYMMDD实际是2位年份的6位值（比如举例的22020705是笔误，实际为220705代表2022年7月5日），调整取年逻辑为resultYear = CInt(Left(cbhDate, 2)) + 2000即可，可根据自己的年份跨度调整加2000还是1900。

方案2：存储为固定格式文本（无需日期计算时使用） #

如果不需要该列内容参与日期排序、计算，只是要固定显示DD/MM/YYYY格式的文本，可以先将单元格设置为文本格式，再写入拼接好的字符串，就不会触发自动转日期的逻辑：

For i = 1 To lastRow
    cbhDate = CStr(Cells(i, 62).Value)
    resultYear = Left(cbhDate, 4)
    resultMonth = Mid(cbhDate, 5, 2)
    resultDay = Right(cbhDate, 2)
    ' 先设置单元格为文本格式
    Cells(i, 62).NumberFormat = "@"
    ' 再写入拼接后的字符串
    Cells(i, 62).Value = resultDay & "/" & resultMonth & "/" & resultYear
Next i

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