VBA使用Date函数添加时间后日期格式异常求助

一、日期加指定时间格式错乱的修复 #

你遇到的核心问题是将日期型数据与字符串拼接后，Excel会根据系统区域规则重新解析文本，导致日/月顺序颠倒。正确的做法是直接对日期和时间的数值进行运算，而非拼接字符串：

' 设置单元格显示格式
Range("A10").NumberFormat = "dd/mm/yyyy hh:mm:ss"
' 日期+时间（均为日期时间型数值，相加后仍为原生日期值）
Range("A10").Value = Date + TimeValue("22:00:00")

原理： #

• Date返回的是当前日期的数值（Excel中日期以数值存储，1对应1900/1/1）
• TimeValue("22:00:00")返回指定时间的数值（0.916666...对应22点）
• 两者相加得到完整的日期时间数值，Excel会严格按照你设置的NumberFormat显示，不会出现解析错误，同时这个值是可被公式直接识别计算的原生日期，而非文本。

二、复制CONCATENATE合并后的单元格值 #

如果必须用分单元格合并的方案，要复制值而非公式，有两种简单方法：

方法1：直接赋值单元格Value #

假设合并后的公式在C1，要复制到A10：

Range("A10").NumberFormat = "dd/mm/yyyy hh:mm:ss"
' 直接取C1的计算结果赋值给A10
Range("A10").Value = Range("C1").Value

方法2：使用PasteSpecial粘贴值 #

Range("C1").Copy
' 只粘贴值，不粘贴公式和格式
Range("A10").PasteSpecial Paste:=xlPasteValues
' 手动设置目标单元格的显示格式
Range("A10").NumberFormat = "dd/mm/yyyy hh:mm:ss"
' 清空剪贴板（可选）
Application.CutCopyMode = False

注意： #

用CONCATENATE合并出来的是文本型日期，无法直接被公式进行日期运算，因此更推荐第一种「日期+时间值」的方案，既能保证格式正确，又保留日期的数值属性。

内容的提问来源于stack exchange，提问作者I.B