excel - vba中的Vlookup循环，如何调试这个？

Question

我有一堆工作表名称从 1 到 200（例如），我想创建一个概览。我以循环形式在 vba 中使用了 vlookup 函数。但是有一个我无法理解的错误。

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 属性”。我不知道原因。

标签： excelvbavlookup

Answer 1

而不是WorksheetFunction.Vlookup，您可以使用Application.Vlookup.

如何使用 WorksheetFunction.VLookup 错误处理 1004 错误？