vba

Question

我尝试对每个单元格进行 vLookup，但它似乎不起作用

Sub Extern()

    Dim WS_Count As Integer
    Dim I As Integer
    Dim c As Integer
    Dim j As Range
    Dim e As Range

    lRow = Worksheets("Übersicht").Range("A65536").End(xlUp).Row
    WS_Count = ActiveWorkbook.Worksheets.Count
    c = 41

    For Each j In Worksheets("Übersicht").Range("A41:A" & lRow)

        Set Rng = Worksheets("Übersicht").Range("B" & c)

        For I = 3 To WS_Count
            If Worksheets(I).Name Like "*uslastu*" Then

                Rng.Formula = "=VLOOKUP(j,Worksheets(I)!B:C,2)"

            End If
        Next I

        c = c + 1
    Next j
End Sub

请帮忙，如果你注意到任何问题 errors.When 我尝试调试它，它说查找公式是问题所在。

Answer 1

因为你把变量 j 和 I 放在标记 "" 里面，所以 VBA 理解它是文本，并没有将任何值传递给这些变量。结果，您的公式将出错。

你可以试试这个公式：

"=VLOOKUP(" & j.Address & "," & Worksheets(I).Name & "!B:C,2,0)"

vba - 在循环中查找

vba - Look up in Loop

foreach

vlookup