Question

我有两张桌子：

              TYPE A        
VARIABLES   A1  A2  A3
VAR 1           
VAR 2           
VAR 3           
VAR 4


              TYPEB     
VARIABLES   A1  A2  A3
VAR 1                   
VAR 3           
VAR 4

我想创建一个vba代码，以便按以下格式vlookup和填充数据：

             TYPE A     TYPE B  
VARIABLES   A1  A2  A3  A1  A3
VAR 1                   
VAR 2                   
VAR 3                   
VAR 4

我可以使用具有单一条件的vlookup vba代码并填充表格。但是我们能否拥有可以使用多个标准来执行此操作的代码。

我试图为每个表执行以下代码。但这很麻烦，因为我要像每个表一样正确编码。如果表的数量很大，那么它非常麻烦。我试图看看是否有任何关于互联网的例子，但遗憾的是没有得到任何。

Sub VlookUpExample()

Dim rw As Long
For rw = 2 To 4
    Sheets("Sheet2").Cells(rw, 2) = Application.VLookup(Sheets("Sheet2").Cells(rw, 1), _
    Sheets("Pivot").Columns("B:I"), 2, False)
    Sheets("Sheet2").Cells(rw, 3) = Application.VLookup(Sheets("Sheet2").Cells(rw, 1), _
    Sheets("Pivot").Columns("B:I"), 3, False)
    Sheets("Sheet2").Cells(rw, 4) = Application.VLookup(Sheets("Sheet2").Cells(rw, 1), _
    Sheets("Pivot").Columns("B:I"), 4, False)

Next
End Sub

谢谢。

Answer 1

您可以使用简单的“if then”制作许多标准。如果要添加其他条件，只需在“else”下面键入next“if then”。

If *some condition* Then
    *do something*

    Else
    *do something else*

End If

使用VLOOKUP的多个条件

1 个答案: