Excel VBA如何根据输入变量匹配获取对应行指定列的单元格值

原代码存在的问题 #

• 匹配判断逻辑错误：StrComp函数返回0时代表两个字符串完全相等，原代码判断=1的逻辑永远无法命中正确匹配项
• 取值语法错误：原取值写法x.Cells(G, CInt(nazwa))中G未做定义，且将图书名称字符串强制转为整数会直接触发运行时错误，根本无法拿到同行G列的借阅价格
• 无匹配失败兜底逻辑，查不到图书时没有任何提示，还可能残留上一次的查询结果

修正后完整代码 #

Private Sub CommandButton3_Click()
    Dim nazwa As String
    nazwa = Trim(TextBox1.Value)
    Dim x As Range
    Dim findFlag As Boolean
    findFlag = False

    For Each x In Range("A2:A6")
        ' 加Trim处理单元格和输入的前后空格，vbTextCompare参数支持不区分大小写匹配
        If StrComp(Trim(x.Value), nazwa, vbTextCompare) = 0 Then
            Range("J2") = nazwa
            ' A列单元格向右偏移6列即为同行G列，直接取值即可
            Range("K2") = x.Offset(0, 6).Value
            findFlag = True
            Exit For ' 匹配到目标后直接退出循环，减少不必要遍历
        End If
    Next x

    If Not findFlag Then
        MsgBox "未查询到对应图书，请检查输入名称", vbExclamation
        Range("J2:K2").ClearContents
    End If
End Sub

Private Sub Label4_Click()
End Sub

Private Sub UserForm_Click()
End Sub

使用说明 #

• 代码自动处理输入内容和单元格内容前后的多余空格，避免因为隐形空格导致匹配失败
• 默认不区分大小写匹配，降低输入校验成本
• 匹配到目标后立刻终止循环，运行效率更高
• 查询不到对应图书时会弹出提示，同时清空J、K列的旧查询结果，避免数据混淆

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