vba vlookup無法循環工作

Question

我正在研究一種分析數據的工具。 將要分析的數據手動復制到第一張表中，然后我計划運行一個宏，將數據分析到第二張表中。 我需要每個條目的一個屬性的vlookup函數：

Worksheets("x1").Cells(z, 4).Value = Application.WorksheetFunction.VLookup(Worksheets("x1").Cells(z, 2).Value, Worksheets("x2").Range("$A$1:$B$23"), 2, False)

顯然z是指示當前行的變量（我確實在“ for”循環中復制了約700行數據）。

每當我嘗試執行整個子程序時，它將返回運行時錯誤（1004）。 奇怪的是，每當我使用單個步驟執行宏時，它就可以正常工作。

有人知道這里發生了什么嗎？

提前致謝

Answer 1

這是一些示例錯誤處理代碼，可助您一臂之力。

Sub TestVLookup()

    On Error GoTo ErrHandler
    For Z = 1 To 700
        Worksheets("x1").Cells(Z, 4).Value = Application.WorksheetFunction.VLookup(Worksheets("x1").Cells(Z, 2).Value, Worksheets("x2").Range("$A$1:$B$23"), 2, False)
    Next Z

Exit Sub

ErrHandler:
    Debug.Print "Z: " + CStr(Z) + "|" + CStr(Err.Number) + ": " + Err.Description

End Sub