具有当前区域参考的简单 VBA Vlookup 循环

Question

我的 VB 代码有一列 LookupVals，它成功地查找了列表中的第一个值，但我希望它继续运行并 Vlookup 所有这些值 - 并在下面的单元格中打印结果第一个结果。

这是我目前的编码：

Private Sub CommandButton4_Click()

LookupVal = Sheets("Sheet1").Range("B16").Value
Range("A5").Formula = "=VLOOKUP(" & LookupVal & ",Sheet2!" & Sheets("Sheet2").Range("A4").CurrentRegion.Address & _
",Sheet1!G13,FALSE)"

End Sub

该公式还包含一个保存在单元格（G13，工作表 1）中的 col_index_value 值。

对将它循环到 A6、A7 等有帮助吗？

Answer 1

使用计数器循环行。使用 ("A" & lRow) 而不是硬编码的行 ("A5")。

    Dim ws As Excel.Worksheet
    Dim lRow As Long

    Set ws = ActiveWorkbook.Sheets("Sheet1")
    ws.Activate

    lRow = 5
    Do While lRow <= ws.UsedRange.Rows.count

        'Do your code here.

         LookupVal = Sheets("Sheet1").Range("B16").Value
         ws.Range("A" & lRow).Formula = "=VLOOKUP(" & LookupVal & ",Sheet2!" &    Sheets("Sheet2").Range("A4").CurrentRegion.Address & _
         ",Sheet1!G13,FALSE)"

        lRow = lRow + 1
        ws.Range("A" & lRow).Activate
    Loop