Vlookup Loop в VBA, как это отладить? - PullRequest
Новая
       2

Vlookup Loop в VBA, как это отладить?

0 голосов
/ 07 апреля 2019

У меня есть стопка листов с именами листов от 1 до 200 (например), и я хочу создать обзор.Я использовал функцию vlookup в vba в форме цикла.Но есть ошибка, которую я не могу понять. 

Sub Loop_Vlookup()
    Dim for_col As Long, i As Long, r As Long, c As Long, column As Long, ws As Long
    r = 3: c = 7: column = 2

    For for_col = 1 To Range("XFD2").End(xlToLeft).column - 6    
        ws = ActiveWorkbook.Sheets.Count - 2
        For i = 1 To ws
           Cells(r, c).Value = ActiveWorkbook.Application.WorksheetFunction.VLookup(Cells(1, c).Value, ActiveWorkbook.Sheets(i).Range("A:B"), column, 0)
           r = r + 1          
        Next
        r = 3
        c = c + 1    
    Next    
End Sub

Я получил это "Невозможно получить свойство vlookup класса функций листа".Я не знаю причину.

1 Ответ

2 голосов
/ 07 апреля 2019

Вместо WorksheetFunction.Vlookup вы можете использовать Application.Vlookup.

Как обработать ошибку 1004 Ошибка с WorksheetFunction.VLookup?

...