Question

我有一个工作表（工作表1），其中包含一个帮助列AR，其中包含数字＆＃34; 5＆＃34;或文字＆＃34;无效＆＃34;。如果AR包含数字＆＃34; 5＆＃34;，我希望列AS执行特定的vlookup，但如果它包含文本＆＃34;无效＆＃34;做一个单独的特定vlookup。目前我刚刚覆盖了我的循环的else部分所做的事情，是对列的最后一次迭代，最后只为其中一个进行了vlookup。我使用工作表1中的列Y作为用于vlookup的特定值（aCell）。任何帮助都会有很长的路要走，谢谢！

Dim wsThis As Worksheet
Dim aCell As Range
Set wsThis = Sheets("Sheet3")
Dim wsAnd As Worksheet
Set wsAnd = Sheets("Sheet2")
Dim LastRow As Long, myRng As Range
LastRow = Sheets("Sheet3").UsedRange.Rows.Count
With wsIt
    For x = 2 To LastRow
        If Sheets("Sheet1").Range("$AR$" & x) = "5" Then
            For Each aCell In wsIt.Range("Y2:Y" & LastRow)
                .Cells(aCell.Row, 45) = "Not Found"
                On Error Resume Next
                .Cells(aCell.Row, 45) = Application.WorksheetFunction.VLookup( _
                                aCell.Value, wsThis.Range("$B$2:$Q$400"), 5, False)
                On Error GoTo 0
            Next aCell
        End If
    Next
End With

With wsIt
    For x = 2 To LastRow
        If Sheets("Sheet1").Range("$AR$" & x) = "Invalid" Then
            For Each aCell In wsIt.Range("Y2:Y" & LastRow)
                .Cells(aCell.Row, 45) = "Not Found"
                On Error Resume Next
                .Cells(aCell.Row, 45) = Application.WorksheetFunction.VLookup( _
                                aCell.Value, wsAnd.Range("$B$2:$Q$400"), 5, False)
                On Error GoTo 0
            Next aCell
        End If
    Next
End With

Answer 1

如果我的目的正确，你可以：

使用Application.VlookUp（）方法从其返回值中获益，捕获任何错误并查询它

使用Select Case块以前选择与“AR”值相关的lookUp范围

Dim wsIt As Worksheet
Set wsIt = Sheets("Sheet1")
Dim wsThis As Worksheet
Set wsThis = Sheets("Sheet3")
Dim wsAnd As Worksheet
Set wsAnd = Sheets("Sheet2")
Dim LastRow As Long
Dim aCell As Range
Dim lookUpResult As Variant

LastRow = wsThis.UsedRange.Rows.Count
With wsIt
    For x = 2 To LastRow
        Select Case .Cells(x, "AR") 
            Case "5"
                Set VLookUpRng = wsThis.Range("$B$2:$Q$400")
            Case “Invalid”
                Set VLookUpRng = wsAnd.Range("$B$2:$Q$400")
            Case Else
                Set VLookUpRng = Nothing
        End Select

        If Not VLookUpRng Is Nothing Then
            For Each aCell In .Range("Y2:Y" & LastRow)
                lookUpResult = Application.VLookup( aCell.Value, VLookUpRng, 5, False)
                .Cells(aCell.Row, 45) = IIf(IsError(lookUpResult),  "Not Found", lookUpResult)
            Next
        End If
    Next
End With

Answer 2

这不是一个很好的解决方案，但基本上我将第二次迭代的vlookup结果粘贴到一个新工作表中，然后对工作表1和工作表2的列进行排序，以便结果能够正确地相互引用。

Dim x as Long
Dim y As Long
Dim LastRow
Dim NewLast
    LastRow = Sheets("Sheet1").UsedRange.Rows.Count
    NewLast = Sheets("Sheet2").UsedRange.Rows.Count
For x = 2 to LastRow 
    If Sheets("Sheet1").Range("$AS$" & x) = "Not Found" Then
        For y = 2 To NewLast
            Sheets("Sheet1").Range("$AS$" & x) = Sheets("Sheet2").Range("$F$" & y)
            Sheets("Sheet1").Range("$AT$" & x) = Sheets("Sheet2").Range("$F$" & y)
        Next
    End If
Next

Vlookup在一个列的两个不同区域

2 个答案: