如何从 sheet 中提取公式并将“=”添加到运行的前面

Question

我正在尝试设置一个日志并使用一个连接公式来组合几列，但每次我运行它都会得到一个 #NA 因为 VBA/Excel 在我的列表中添加了额外的字符出于某种原因的公式。有没有更好的方法来复制和粘贴前面带有“=”的公式？这里的目标是复制并粘贴这些公式作为值，以便之后删除公式。

我尝试选择我想开始粘贴的位置，然后通过在它前面添加一个“=”来执行 'activecell.formulaR1C1' 但那是当我出于某种原因在我的公式中得到额外的 ' ？

我的等式：

CONCATENATE('Data'!J2," ",'Data'!K2," From ",'Data'!H2) {this is what is in worksheet("calculation") Cell: C2}

代码：

Worksheets("Calculations").Range("C2").Copy Destination:=Sheets("Log").Range("B2")
    Range("B2").Select
        ActiveCell.FormulaR1C1 = "=" & ActiveCell.Formula

我希望能够将其粘贴为公式，并添加一行以仅作为 .value 复制和粘贴公式

Answer 1

像这样：

With Sheets("Log").Range("B2")
    Worksheets("Calculations").Range("C2").Copy .Cells(1)
    .Formula = "=" & .Value
End with

如果您真的不需要 Copy 那么：

Sheets("Log").Range("B2").Formula = "=" & Worksheets("Calculations").Range("C2").Value

如何从 sheet 中提取公式并将“=”添加到运行的前面

How to pull a formula off a sheet and adding "=" to the front to run

excel

vba

copy-paste

concatenation

如何从 sheet 中提取公式并将“=”添加到 运行 的前面

How to pull a formula off a sheet and adding "=" to the front to run

excel

vba

copy-paste

concatenation

如何从 sheet 中提取公式并将“=”添加到运行的前面