将公式设置为范围(例如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'''''
斯科特·克莱纳(Scott Craner)

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

clloffset.Value

应该

clloffset.Address(0,0)

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章