excel - 将 Range.Address 输入到没有 ' ' 的公式中

Question

感谢是否有人可以帮助我，
有 2 个问题
问题1:
我有一个 VBA，它应该提示一个输入框，允许用户选择一个单元格并将地址返回到一个 vlookup 公式。但是，单元格将返回带有地址的 ' ' 符号
这是实际结果=IFNA(VLOOKUP('J1242','D:\Users\[file.xlsm]Working'!$A:$BG,15,0),"")这就是我想要的=IFNA(VLOOKUP(J1242,'D:\Users\[file.xlsm]Working'!$A:$BG,15,0),"")

    Set myCell = Application.InputBox( _
        prompt:="Select a cell", Type:=8)
        
        MsgBox myCell.Address
        
        ActiveCell.FormulaR1C1 = _
            "=IFNA(VLOOKUP(" & myCell.Address(RowAbsolute:=False, ColumnAbsolute:=False) & ",'D:\Users\[file.xlsm]Working'!C1:C59,15,0),"""")"
        ActiveCell.Offset(1, 0).Range("A1").Select

问题2:
为什么返回 =IFNA(VLOOKUP('J1242','D:\Users\[file.xlsm]Working'!$A:$BG,15,0),"")当我的代码显示:

"=IFNA(VLOOKUP(" & myCell.Address(RowAbsolute:=False, ColumnAbsolute:=False) & ",'D:\Users\[file.xlsm]Working'!C1:C59,15,0),"""")"
    ActiveCell.Offset(1, 0).Range("A1").Select

我使用宏记录器输入公式。

Answer 1

问题是这会返回一个 A1 格式的地址

myCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)

但是你的公式 .FormulaR1C1是 R1C1 格式。
所以而不是 .FormulaR1C1您需要使用 .Formula这是A1格式。他们都需要匹配他们的格式。