Excel VBA精确匹配指定文本行选择的问题求助

原代码用InStr函数判断字符串是否包含目标内容，这会导致输入1时选中“$ value 10”“$ value 15”这类部分匹配的行。要实现精确匹配，只需把判断条件改成检查单元格文本是否完全等于“$ value ”加上输入的数值，同时优化一些细节：

Sub select_rows_based_on_match()
    Dim rng As Range
    Dim cell As Range ' 替换Object为更规范的Range类型
    Dim row As Range
    Dim strInput As String ' 显式声明变量类型
    
    ' 用CurrentRegion自动获取完整连续数据区域，避免空行漏选，无需手动Select
    Set rng = Range("A1").CurrentRegion
    
    strInput = InputBox("Enter a value to match on:")
    
    For Each cell In rng
        ' 精确匹配单元格文本完全等于"$ value X"格式
        If cell.Text = "$ value " & strInput Then
            If Not row Is Nothing Then
                Set row = Union(row, cell.EntireRow)
            Else
                Set row = cell.EntireRow
            End If
        End If
    Next
    
    If row Is Nothing Then
        MsgBox "There was no $ value " & strInput & " found" ' 修正拼写错误wwas→was
    Else
        row.Select
    End If
End Sub

关键修改说明 #

• 精确匹配逻辑：将包含判断改为完全相等判断，确保只有单元格内容严格符合“$ value X”格式才会触发行选择
• 代码规范优化：补全变量类型声明，替换不必要的Object类型，让代码更易维护
• 数据区域优化：用CurrentRegion自动识别连续数据范围，避免原方法因空行导致的漏选问题
• 细节修复：修正提示框中的拼写错误

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