将文本粘贴为公式

bru*_*san 1 excel vba

我正在创建一个字符串,它是一个公式。就像在这里(这是一个更简单的例子)
如果:

A1 is "Sum"
A2 is "D3"
Run Code Online (Sandbox Code Playgroud)

那么 B1 是 =Concatenate("=",A1,"(",A2,")")

我想要一个 VBA 宏,它采用B1 中的公式结果并将粘贴作为C1 中的公式

我需要 C1 作为公式 =SUM(D3)

我认为它涉及 PasteSpecial 和评估,但我不知道如何。

我不想使用 INDIRECT 函数,因为我希望能够使用比公式和内部的相对引用填充更多的单元格。

Tim*_*ams 5

with Activesheet
  .Range("C1").Formula = .Range("B1").Value
End With
Run Code Online (Sandbox Code Playgroud)