☰

將公式設定為範圍（例如 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)

相關內容