要保留输入框中的静态/锁定范围以供VLOOKUP使用,可以使用以下解决方法:
Sub VLookupWithInputBox()
Dim lookupRange As Range
Dim lookupValue As Variant
Dim result As Variant
' 提示用户选择范围
Set lookupRange = Application.InputBox("请选择范围:", Type:=8)
' 提示用户输入要查找的值
lookupValue = InputBox("请输入要查找的值:")
' 使用VLOOKUP函数进行查找
result = Application.WorksheetFunction.VLookup(lookupValue, lookupRange, 2, False)
' 显示结果
MsgBox "查找结果为: " & result
End Sub
然后,在公式中使用VLOOKUP函数时,可以直接引用该命名范围。
例如,如果命名范围的名称为"LookupRange",则可以使用以下公式:
=VLOOKUP(A2, LookupRange, 2, False)
这样,无论选择了什么范围作为输入框,VLOOKUP函数都会使用命名范围中指定的范围进行查找。