運行時錯誤424 Excel VBA

Question

嗨，我正在嘗試編寫此宏來執行vlookup，所以我沒有公式會不斷計算並減慢我的工作速度，但是我不斷收到運行時錯誤424：需要對象。

Sub matchProgram()

Dim Mrow As Long
Dim Mcol As Long

Table1 = Sh1.Range("A1:A20")
Table2 = Sh2.Range("A1:B20")

Mrow = Sh1.Range("B1").Row
Mcol = Sh1.Range("B1").Column

For Each cl In Table1
  Sh1.Cells(Mrow, Mcol) = Application.WorksheetFunction.VLookup(cl, Table2, 2, False)
  Mrow = Mrow + 1
Next cl

End Sub

Answer 1

您需要使用對象變量進行Set ：

Set Table1 = Sh1.Range("A1:A20")
Set Table2 = Sh2.Range("A1:B20")

（從技術上講，由於VLOOKUP將采用數組，因此Table2仍然可以工作）