Question

我想在这里完成的是

1）迭代O列中的值和非空的值 - 过滤标题为DATA的工作表仅显示列B = X的值，并使用VLOOKUP（）将查找值返回到相应的行在P栏中
2）如果列O为空，则过滤标题为DATA的薄片仅显示其中列B＆lt;＆gt;的值。 X并使用VLOOKUP（）将查找值返回到P列中的相应行。

我尝试了下面的语法，但是我收到错误

对象'_Worksheet'的方法'Rarnge'失败

我需要在下面的代码中做些什么，以获得返回我想要的值的语法？

Dim destSheet As Worksheet: Set destSheet = Sheets("Main")

For i = Range("A" & Rows.Count).End(3).Row To 2 Step -1
    If Not IsEmpty(Cells(i, "O").Value) Then
        Sheets("Data").Select
        Selection.AutoFilter
        ActiveSheet.Range("$A:$C").AutoFilter Field:=2, Criteria1:="<>"
        Sheets("Main").Select
        Application.CutCopyMode = False
        form2 = "=IFERROR(VLOOKUP(RC[-15],Lookup!C[-15]:C[-13],3,FALSE),"""")"
        destSheet.Range("P:P" & lr).Formula = form2
    Else
        Sheets("Data").Select
        Selection.AutoFilter
        Sheets("Main").Select
        Application.CutCopyMode = False
        form3 = "=IFERROR(VLOOKUP(RC[-15],Lookup!C[-15]:C[-13],3,FALSE),"""")"
        destSheet.Range("P:P" & lr).Formula = form3
    End If
Next i

Answer 1

对我来说有点难以理解你想要做什么，如果我弄错了，请纠正我。

首先选择工作表不是运行宏时的首选方法，除非您有意这样做，所以请避免使用。

其次，您不需要过滤任何内容，您可以通过检查代码中的条件来控制它。你不是在物理上做事，你在理论上在你的代码中做，并显示输出。看看这段代码，询问您需要帮助的地方。

Sub VLookups()

Dim destSheet As Worksheet: Set destSheet = Sheets("Main")
Dim i As Long
Dim myVal As Variant

Set lookupRange = Sheets("Data").Range("$A:$C") 'This is your lookup range

For i = 2 To Range("O" & Rows.Count).End(xlUp).Row 'Iterate from 2nd row till last row
    myVal = Application.VLookup(destSheet.Cells(i, "A").Value, lookupRange, 2, False)
    If IsError(myVal) Then GoTo Skip 'If searched value not found then skip to next row

    If Not IsEmpty(Cells(i, "O").Value) Then 'If Cell in Column O not empty
        If myVal = "YOUR X VALUE FOR COLUMN B" Then 'If Your Column B X value exists
            destSheet.Cells(i, "P").Value = Application.VLookup(destSheet.Cells(i, "A").Value, _
            lookupRange, 3, False) 'Column P Cell is populated by Data Sheet Column C Cell
        End If
    Else 'If Cell in Column O empty
        If myVal <> "YOUR X VALUE FOR COLUMN B" Then 'If Your Column B X value not exists
            destSheet.Cells(i, "P").Value = Application.VLookup(destSheet.Cells(i, "A").Value, _
            lookupRange, 3, False) 'Column P Cell is populated by Data Sheet Column C Cell
        End If
    End If
Skip:
Next i
End Sub

在VBA中使用带有过滤条件的Vlookup

1 个答案: