-4

我有 2 张桌子：

              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 代码，以便它以以下格式查找和填充数据：

             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

谢谢你。

4

1 回答 1

0

您可以使用简单的“如果那么”来制定许多标准。当您想添加另一个条件时，只需在“else”下方键入下一个“if then”。

If *some condition* Then
    *do something*

    Else
    *do something else*

End If
于 2013-08-05T07:19:33.233 回答