Excel VBA程序迁移数据时日期格式从DD/MM/YYYY变为MM/DD/YYYY问题

问题核心 #

Excel日期本质是序列号，但用.Value赋值时，若源数据是文本格式日期，或系统区域设置（如美式MM/DD/YYYY）与目标格式（DD/MM/YYYY）冲突，VBA会按系统规则自动解析日期，导致日、月位置反转——即使单元格格式显示为DD/MM/YYYY，实际存储的日期值已经错误。

具体解决思路 #

• 用.Value2替代.Value赋值
  .Value2直接读取单元格原始值（序列号或纯文本），跳过Excel自动日期解析逻辑，不受区域设置干扰。修改代码：

  Sheet1.Range("N" & lRow).Value2 = Sheet4.Cells(17, 50).Value2
  

  赋值后确保目标单元格格式设为DD/MM/YYYY即可正确显示。

• 强制按指定格式解析文本日期
  如果源单元格的日期是文本格式，手动拆分日、月、年并构建正确日期，彻底规避区域设置影响：

  Dim dateText As String
  Dim dateParts() As String
  dateText = Sheet4.Cells(17, 50).Text
  dateParts = Split(dateText, "/")
  ' 按日、月、年顺序生成日期
  Sheet1.Range("N" & lRow).Value = DateSerial(dateParts(2), dateParts(1), dateParts(0))
  

• 检查源单元格实际存储类型
  选中Sheet4.Cells(17,50)，查看公式栏内容：

  • 若显示纯数字（如44995），说明是正确的日期序列号，仅需用.Value2赋值后调整目标单元格格式。
  • 若显示文本（如"01/04/2023"），则必须用手动解析的方法修正。

• 临时调整系统区域设置（不推荐）
  把Windows系统区域的日期格式改为DD/MM/YYYY，运行完VBA程序后再改回。这是临时治标方案，不适用于通用程序。

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