VBA Excel日期复制粘贴异常求助：自定义格式日期无法正常显示

问题核心 #

Excel中日期本质是数字序列号，自定义格式「TT.MMM」若未正确关联日期值，或粘贴时格式传递异常，会导致目标单元格显示异常（数字/错误日期）。

解决方案 #

方案1：直接赋值+手动设置格式（最可靠）

跳过复制粘贴，直接传递日期值后设置目标格式，避免格式冲突：

' 传递源单元格的日期值
wsLCLHU.Range("G" & lastrowHU).Offset(1, 26).Value = wsGL.Range("J" & i).Value
' 设置目标单元格为所需日期格式
wsLCLHU.Range("G" & lastrowHU).Offset(1, 26).NumberFormat = "YYYY/MM/DD"

方案2：处理文本型日期（若源单元格是文本格式）

如果源单元格的「TT.MMM」是文本（编辑栏显示与单元格一致的内容，而非数字序列号），需先转换为日期值：

Dim sourceDate As Date
' 将"27.Jul"格式的文本转换为日期值（替换点为空格后用DateValue解析）
sourceDate = DateValue(Replace(wsGL.Range("J" & i).Value, ".", " "))
' 赋值并设置格式
wsLCLHU.Range("G" & lastrowHU).Offset(1, 26).Value = sourceDate
wsLCLHU.Range("G" & lastrowHU).Offset(1, 26).NumberFormat = "YYYY/MM/DD"

方案3：优化复制粘贴流程

先清除目标单元格原有格式，再完整复制源单元格内容，最后调整格式：

' 清除目标单元格格式，避免旧格式干扰
wsLCLHU.Range("G" & lastrowHU).Offset(1, 26).ClearFormats
' 复制源单元格所有内容
wsGL.Range("J" & i).Copy
' 粘贴全部内容
wsLCLHU.Range("G" & lastrowHU).Offset(1, 26).PasteSpecial xlPasteAll
' 调整为目标日期格式
wsLCLHU.Range("G" & lastrowHU).Offset(1, 26).NumberFormat = "YYYY/MM/DD"

排查要点 #

• 检查源单元格类型：选中源单元格，查看编辑栏内容——若为数字（如45123）则是日期序列号；若为「27.Jul」则是文本，需用方案2处理。
• 确认区域设置匹配：English(US)下，MMM对应英文月份缩写（Jan/Jul等），若源文本是其他语言月份，需修改转换逻辑。

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