按值查找范圍Excel-VBA

Question

我需要一個函數或一些東西來向我返回找到指定值的范圍。

我正在考慮遍歷指定的范圍，檢查每個單元格中的值是否等於我指定的值並建立一個范圍。 有沒有更優雅的方法？

Answer 1

這是我建立的功能。 它返回找到所需值的並集范圍：

Private Function FindRange(what As String, lookin As Range) As Range

    Dim cell As Range

    On Error GoTo errhandler

    For Each cell In lookin.Cells
        If UCase(cell.Value) = UCase(what) Then

            If findrange Is Nothing Then
                Set findrange = cell
            Else
                Set findrange = Application.Union(findrange, cell)
            End If

        End If
    Next cell

    Exit Function

errhandler:
    findrange = CVErr(xlErrNA)

End Function

Answer 2

試試下面的代碼。 您可以使用公式在單元格本身中獲得結果。

=findvalueandrange(searchstring,selectyourrange)

Public Function findvalueandrange(findingtext As String, r As Range) As String
    Dim cell As Range
    For Each cell In r.Cells
        If LCase(cell.Value) = LCase(findingtext) Then
            If findvalueandrange = "" Then
                findvalueandrange = cell.Address & ":" & cell.Value
            Else
                findvalueandrange = findvalueandrange & "|" & cell.Address & ":" & cell.Value
            End If
        End If
    Next cell
End Function

希望你滿意嗎？