从VBA向Excel单元格添加公式

Question

我有一个标签为my_new_name的工作表，并且想输入一个公式，在查看了其他堆栈溢出线程后，我想到了以下内容：

Set wsDest = Sheets("my_new_name")
wsDest.Range("J2").Formula = "=RIGHT(K2,2)&" / "&MID(K2,5,2)&" / "&LEFT(K2,4)"
wsDest.Range("J2").Select
Selection.AutoFill Destination:=Range("J2:J")

但是，这不起作用，并且错误带有“类型不匹配”

任何帮助都会很棒

Answer 1

假设您获得的公式输出为=RIGHT(K2,2)&"/"&MID(K2,5,2)&"/"&LEFT(K2,4) ，则必须转义双引号在您的VBA行中。

wsDest.Range("J2").Formula = "=RIGHT(K2,2)&" / "&MID(K2,5,2)&" / "&LEFT(K2,4)" （抛出类型不匹配）

应该：

wsDest.Range("J2").Formula = "=RIGHT(K2,2)&"" / ""&MID(K2,5,2)&"" / ""&LEFT(K2,4)" （不错误）

编辑：此外，根据注释部分，您需要在此后指定结束行(J2:J####) -其中###是行号。