运行时错误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")

（从技术上讲，Table2无论如何都会有效，因为VLOOKUP将采用数组）