使用vba在excel范围内查找特定行

Sub FindSpecificRows()
    Dim searchValue As String
    Dim searchRange As Range
    Dim foundCell As Range
    Dim resultRange As Range
    
    ' 设置要查找的值
    searchValue = "特定值"
    
    ' 设置要查找的范围
    Set searchRange = ThisWorkbook.Sheets("Sheet1").Range("A1:A10")
    
    ' 在范围内查找特定值
    Set foundCell = searchRange.Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 如果找到了特定值，则将找到的行添加到结果范围
    If Not foundCell Is Nothing Then
        If resultRange Is Nothing Then
            Set resultRange = foundCell.EntireRow
        Else
            Set resultRange = Union(resultRange, foundCell.EntireRow)
        End If
    End If
    
    ' 输出结果
    If Not resultRange Is Nothing Then
        resultRange.Select ' 选中找到的行
        ' 可以在这里进行进一步的处理，如复制、删除等操作
    Else
        MsgBox "未找到特定行。"
    End If
End Sub