Excel VBA中K2单元格DATE公式显示异常问题咨询

问题场景 #

要拆分J列类似2022072610:22:40的字段，实现：

• K列生成dd-mm-yyyy格式日期
• L列生成[$-x-systime]h:mm:ss AM/PM格式时间

执行VBA代码后，L2单元格公式正常返回时间，但K2直接显示公式文本=DATE(LEFT(RC[-1],4),MID(RC[-1],5,2),MID(RC[-1],7,2))，未计算出日期。相关代码片段：

Range("K2").FormulaR1C1 = "=DATE(LEFT(RC[-1],4),MID(RC[-1],5,2),MID(RC[-1],7,2))"
Application.Wait eindTijd
Range("L2").FormulaR1C1 = "=TIME(MID(RC[-2],9,2),MID(RC[-2],12,2),RIGHT(RC[-2],2))"
Application.Wait eindTijd

解决方案 #

1. 修正单元格格式 #

K2大概率被设置为文本格式，导致公式直接显示为文本。可以在写入公式前先设置单元格格式：

' 先设置K2为日期格式
Range("K2").NumberFormat = "dd-mm-yyyy"
' 再写入公式
Range("K2").FormulaR1C1 = "=DATE(LEFT(RC[-1],4),MID(RC[-1],5,2),MID(RC[-1],7,2))"

2. 强制触发重新计算 #

若单元格格式正常但仍不计算，可能是Excel自动计算被禁用，添加强制计算语句：

Range("K2").FormulaR1C1 = "=DATE(LEFT(RC[-1],4),MID(RC[-1],5,2),MID(RC[-1],7,2))"
' 强制全表重新计算，确保公式生效
Application.CalculateFullRebuild

3. 切换公式引用样式（可选） #

如果R1C1引用方式存在兼容问题，改用A1样式公式：

Range("K2").NumberFormat = "dd-mm-yyyy"
Range("K2").Formula = "=DATE(LEFT(J2,4),MID(J2,5,2),MID(J2,7,2))"

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