用于查找范围内的值并在值之间返回单元格的VBA代码

Function FindValueInRange(rangeToSearch As Range, valueToFind As Variant) As String
    Dim cell As Range
    Dim startCell As Range
    Dim endCell As Range
    Dim found As Boolean
    
    found = False
    
    For Each cell In rangeToSearch
        If cell.Value = valueToFind Then
            If Not found Then
                Set startCell = cell
                found = True
            End If
            Set endCell = cell
        End If
    Next cell
    
    If found Then
        FindValueInRange = startCell.Address & ":" & endCell.Address
    Else
        FindValueInRange = "Value not found in range"
    End If
End Function