使用VBA返回具有匹配值的开始行号和结束行号

Sub FindMatchingRows()
    Dim searchValue As Variant
    Dim startRow As Long
    Dim endRow As Long
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置要搜索的值
    searchValue = "匹配值"
    
    ' 获取最后一行的行号
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 初始化开始行号和结束行号
    startRow = 0
    endRow = 0
    
    ' 循环遍历每一行
    For i = 1 To lastRow
        ' 检查当前行的值是否与搜索值匹配
        If Cells(i, 1).Value = searchValue Then
            ' 如果开始行号为0，则将当前行号赋值给开始行号
            If startRow = 0 Then
                startRow = i
            End If
            ' 将当前行号赋值给结束行号
            endRow = i
        End If
    Next i
    
    ' 输出结果
    If startRow > 0 And endRow > 0 Then
        MsgBox "开始行号：" & startRow & vbCrLf & "结束行号：" & endRow
    Else
        MsgBox "未找到匹配值。"
    End If
End Sub