☰

将公式设置为范围单元格（例如 A1）与 A1 的内容

tag-icon • tag-icon microsoft-excel vba
将公式设置为范围单元格（例如 A1）与 A1 的内容

我正在尝试设置一个宏，在单元格内容旁边插入一些文本。问题是代码正在复制旁边单元格的内容，但我无法将公式向下拖动以继续。我希望公式以 A1 结尾，而不是 A1 的内容 1111。例如，公式通常是，="ADDTOFRONT"&A1但现在="ADDTOFRONT"&1111

例如： 在此处输入图片描述

'''''PUBLICVARS'''''
Public cll As Variant
Public clloffset As Variant

'''''ENDPUBVARS'''''
'''''MAINSUB'''''
Public Sub Add_BINWH()

cll = Application.InputBox(Prompt:="Which Cell To Add Formula? Eg: B1", Default:="B1")
Set clloffset = Range(cll).Offset(0, -1)
ActiveWorkbook.ActiveSheet.Range(cll).Formula = "=" & Chr(34) & "ADDTOFRONT" & Chr(34) & "&" & clloffset.Value

End Sub
'''''ENDMAINSUB'''''

答案1

您希望将地址放入字符串中，而不是值。

clloffset.Value

应该

clloffset.Address(0,0)

相关内容