Vlookup在VBA中沒有范圍

Question

尋找Vlookup，直到最后一行。 有沒有辦法做的范圍？ 它可以做到最后一行。

    Do While IsEmpty(Cells(i, Name)) = False
        Str = Cells(i, Name)

        ws2.Select

        On Error Resume Next
        Corp = Application.WorksheetFunction.VLookup(Str, ws2.Range("G2:S3000"), 4, False)
        result = Application.WorksheetFunction.VLookup(Str, ws2.Range("G2:S3000"), 13, False)
        'Band = Application.WorksheetFunction.VLookup(Str, ws2.Range("G2:S2500"), 7, False)

        If (Err <> 0) Then
        Else
            ws1.Select
            If (result <> 0) Then
                Cells(i, 10) = result
            End If
            Cells(i, 9) = Corp
        End If

        i = i + 1
        ws1.Select
    Loop
End Sub

Answer 1

如果您有一個要使用的范圍內的單元格（例如您的示例中的G2），則可以使用Range（“ G2”）。CurrentRegion。 這將為您提供該單元格所屬的完整范圍。 這對我有用：

Public Sub GetLookupValue()  
  Dim rng As Range
  Dim str As String
  str = "c"
  Set rng = Blad1.Range("G2").CurrentRegion
  Debug.Print Application.WorksheetFunction.VLookup(str, rng, 2, False)
  Set rng = Nothing
End Sub