如何让VBA日期公式自动适配不同Office语言环境？

核心原因 #

你遇到的问题本质是：不同语言版本的Excel对内置函数名有本地化差异（比如英文TEXT在葡萄牙语中是TEXTO，TODAY是HOJE），直接用Formula属性写入英文函数名时，部分非英文环境无法自动转换，导致公式失效。

可行解决方案 #

方案1：用VBA直接计算值（推荐，彻底规避函数本地化问题） #

放弃在单元格中写入公式，改用VBA直接处理数据并赋值，完全不依赖Excel的内置函数，适配所有语言环境：

处理日期格式化（对应第一个宏）

Dim ws As Worksheet
Dim i As Long
Set ws = ActiveSheet ' 可替换为指定工作表，如ThisWorkbook.Worksheets("Sheet1")

For i = 2 To LastRowNum
    ' 先清理F列内容的空格，再格式化为指定日期字符串
    ws.Cells(i, "G").Value = Format(Trim(ws.Cells(i, "F").Value), "dd.MM.yyyy")
Next i

生成带日期时间的组合字符串（对应第二个宏）

Dim ws As Worksheet
Dim i As Long
Dim todayStr As String
Dim nowStr As String
Set ws = ActiveSheet

' 提前获取日期时间字符串，避免循环中重复计算
todayStr = Format(Date, "ddMMyyyy")
nowStr = Format(Time, "HHmm")

For i = 2 To LastRowNum
    ws.Cells(i, "R").Value = ws.Cells(i, "H").Value & "-" & todayStr & nowStr
Next i

方案2：使用FormulaR1C1属性（保留公式的同时适配多语言） #

Excel的FormulaR1C1属性接受英文函数名，且会自动根据用户的Office语言版本转换为对应的本地函数名，同时格式字符串的语法统一，不受区域设置影响：

对应第一个宏的修改

Range("G2").FormulaR1C1 = "=TEXT(TRIM(RC[-1]),""dd.MM.yyyy"")"
Range("G2:G" & LastRowNum).FillDown

对应第二个宏的修改

Range("R2").FormulaR1C1 = "=RC[-10]&""-""&TEXT(TODAY(),""ddMMyyyy"")&TEXT(NOW(),""HHmm"")"
Range("R2:R" & LastRowNum).FillDown

方案3：强制使用英文函数名的格式标记（针对格式字符串的区域问题） #

如果一定要保留普通Formula属性的写法，可以在格式字符串前加上[$-en-US]强制指定语言环境，但需确保函数名用英文，且Excel版本支持该标记：

Range("G2").Formula = "=TEXT(TRIM(F2),""[$-en-US]dd.MM.yyyy"")"
Range("G2:G" & LastRowNum).FillDown

注：此方法可能因Excel版本或区域设置的差异存在兼容性问题，不如前两种方案可靠。

验证建议 #

测试时可切换到非英文Office环境，检查单元格是否生成正确内容或公式是否正常解析。

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