VBA中实现XLookup反向匹配后用输入框值替换单元格的问题求助

Sub UpdatePriceWithXLookup()
' 用XLOOKUP实现反向匹配并更新单元格值
    Dim clubNum As Variant
    Dim serviceType As Variant
    Dim lookupValue As String
    Dim lookupRange As Range
    Dim returnRange As Range
    Dim matchRow As Variant
    Dim targetCell As Range
    Dim newPrice As Variant
    
    ' 获取俱乐部编号输入
    clubNum = InputBox("Enter Club Number")
    If clubNum = False Then Exit Sub ' 用户取消输入则退出
    ' 获取服务类型输入
    serviceType = InputBox("Enter UNL, PREM, or DSL")
    If serviceType = False Then Exit Sub
    
    lookupValue = clubNum & serviceType
    Set lookupRange = Range("O:O") ' 查找列（O列）
    Set returnRange = Range("D:D") ' 要更新的列（D列）
    
    On Error GoTo CompatibilityIssue
    ' 用Match找到匹配的行号，定位目标单元格
    matchRow = Application.WorksheetFunction.Match(lookupValue, lookupRange, 0)
    Set targetCell = returnRange.Cells(matchRow, 1)
    
    ' 获取新价格输入并验证
    newPrice = InputBox("Enter New Price")
    If newPrice = False Then Exit Sub
    If IsNumeric(newPrice) Then
        targetCell.Value = newPrice
        MsgBox "价格已成功更新！"
    Else
        MsgBox "请输入有效的数值！"
    End If
    
    Exit Sub
CompatibilityIssue:
    MsgBox "你的Excel版本不支持相关函数，请升级至Excel 365或2021版本。"
End Sub

• 定位目标单元格：原代码仅获取了匹配值，未定位到单元格位置。这里通过Match函数找到查找值在O列的行号，再通过行号锁定D列的目标单元格，实现直接修改。
• 输入逻辑优化：增加用户取消输入的判断，避免空值干扰；同时验证新价格是否为数值，防止非法输入报错。
• 错误处理改进：兼容Excel版本问题，同时覆盖找不到匹配记录的场景（若Match找不到值会触发错误分支）。

如果偏好直接用XLOOKUP，可以用以下方式获取目标单元格对象：

' 替换Match部分的代码
Dim targetCell As Range
Set targetCell = Application.XLookup(lookupValue, lookupRange, returnRange, Nothing)
If Not targetCell Is Nothing Then
    ' 后续输入验证和赋值逻辑同上
    newPrice = InputBox("Enter New Price")
    If newPrice <> False And IsNumeric(newPrice) Then
        targetCell.Value = newPrice
        MsgBox "价格已成功更新！"
    End If
Else
    MsgBox "未找到匹配记录！"
End If

这种写法更贴合你想用XLOOKUP的需求，注意需确保Excel版本支持XLOOKUP。

内容的提问来源于stack exchange，提问作者Jeannine