Excel vba中的Vlookup循环，如何调试？

我有一堆工作表，工作表名称从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属性”。我不知道原因。

您可以使用

Application.Vlookup

而不是

WorksheetFunction.Vlookup

---

您可以使用

Application.Vlookup

而不是

WorksheetFunction.Vlookup

---

问题已解决。你的建议太完美了！谢谢问题解决了。你的建议太完美了！谢谢