我来帮你拆解这个VBA宏的问题～

为什么会报错？ #

当你把Date类型的变量ntf直接拼接进FormulaR1C1的字符串时，VBA会把日期变量转换成系统默认的日期格式字符串（比如12/10/2006 15:17:09），最终生成的公式会是：

=WEEKDAY(12/10/2006 15:17:09)

这在Excel公式里是语法错误：Excel会把12/10当成除法运算，后面的时间部分更是完全不符合公式规则，所以触发了运行时错误1004。

而改成Long类型时，VBA会把日期转换成对应的Excel序列号（比如2006-12-10的序列号是38995），生成的公式变成=WEEKDAY(38995)，语法上合法，但结果不对的原因可能是变量赋值逻辑有误，或者序列号对应的日期和你预期的不一致。

最优解决方案 #

其实完全不需要用变量中转，直接引用目标单元格的地址更简单可靠，还能避免格式问题：

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("mysheet") '先绑定工作表，避免Select操作
ws.Cells(6, 6).FormulaR1C1 = "=WEEKDAY(R2C4)" 'R2C4对应Cells(2,4)的R1C1格式

这样Excel会直接读取Cells(2,4)的日期值，自动处理格式，不会出错。

如果一定要用变量拼接 #

如果你需要用变量传递日期，可以把Date变量转换成Excel公式能识别的带引号日期字符串，用Format函数统一格式：

Dim ntf As Date
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("mysheet")

ntf = ws.Cells(2, 4).Value
'把日期转成带双引号的美式日期格式，适配Excel公式语法
ws.Cells(6, 6).FormulaR1C1 = "=WEEKDAY(""" & Format(ntf, "mm/dd/yyyy") & """)"

这里的双引号"""是VBA里的转义写法，最终生成的公式会是=WEEKDAY("12/10/2006")，Excel能正确识别为日期。

额外小建议 #

尽量避免使用Sheets("mysheet").Select这种激活工作表的操作，直接通过工作表对象引用单元格，代码更高效、更不容易因为工作表切换出问题。

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