Excel VBA Vlookup用户select什么单元格

我正在创build一个macros,在同一个工作簿中的两张不同的工作表之间进行一次查找,但有时单元格的布局会发生变化,所以我希望能够添加一个对话框,以允许用户select他们正在查找的内容他们想比较什么名单,但不知道如何做到这一点。

这是我的代码到目前为止:

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-59],ONCE!C[-49],1,0)" Range("BI2").Select Selection.AutoFill Destination:=Range("BI2:BI208032") Range("BI2:BI208032").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 

提前致谢

你可以像这样使用InputBox:

 myValue = InputBox("Give me some input") 

在这里输入图像说明