将公式插入单元格，包括字符串和变量答案

【问题标题】：Insert formula into cell including strings and variables将公式插入单元格，包括字符串和变量
【发布时间】：2020-06-05 18:06:48
【问题描述】：

美好的一天我正在尝试使用 VBA 将以下公式插入到单元格中：

="last change completed: "& D2&" "&"by " &TEXT(E2;"dd-mmm-yy")

其中 D2 是名称，E2 是日期。如果我使用我得到的宏记录：

Sub Macro8()
'
' Macro8 Macro
'

'
    Range("D12").Select
   ActiveCell.FormulaR1C1 = _
    "=""last change completed: ""& R[-11]C[-1]&"" ""&""on "" &TEXT(R[-11]C,""dd-mmm-yy"")"
   ' ActiveCell.FormulaR1C1 = _
        "=""last change completed: ""& R2C4&"" ""&""on "" &TEXT(R2C5,""dd-mmm-yy"")"
    Range("D13").Select
End Sub

我遇到的问题是，当我尝试将单元格位置更改为变量时，我在单元格中得到了损坏的公式，例如类似于：

="last change completed: "  &@ Range(SOP1)

“@range(SOP1) 应该是可变单元格位置。我希望这是足够的细节。

【问题讨论】：

您能否edit 对您尝试将单元格位置更改为变量的代码提出问题？

标签： excel vba excel-formula excel-365

【解决方案1】：

请看下面的代码。希望这可以解决您的问题。

根据需要更改 sheet(1) 值（1- 指工作簿中的第一张工作表）

Sub Macro8()

rng1 = "D12"
rng2 = "D1"

ThisWorkbook.Sheets(1).Range("A1").Formula = "=""last knifehead change: """ & " & " & rng1 & " " & " & " & """ on """ & " & " & "Text(" & rng2 & ", ""dd-mmm-yy"")"

End Sub

【讨论】：