vba - Excel VLookup "Object Required"错误

Question

这是另一个“如此简单却不起作用”类型的问题。

下面有一个宏。它基于链接到 C3 的 ActiveX 组合框。当用户做出选择时，宏应该在另一个工作表上查找该选择，识别 isbn(在第 2 列中)，然后返回到原始工作表以将其粘贴到适当的单元格 (C4) 中。

单步执行，它会在 isbn.Select 处抛出“需要对象”错误。

我确信这很简单。总是如此。你能 Handlebars 给我吗？

Private Sub TitleSelection_Change()

Dim lookFor As Range
Dim rng As Range
Dim isbn As Variant

Set lookFor = Sheets("AAP Dashboard").Range("C3")
Set rng = Sheets("Books").Columns("A:I")

isbn = Application.VLookup(lookFor, rng, 2)

Application.ScreenUpdating = False

isbn.Select
Selection.Copy
Sheets("AAP Dashboard").Range("C4").Select
Selection.Copy
ActiveSheet.Paste
Application.CutCopyMode = False

Application.ScreenUpdating = True

End Sub

Answer 1

您无法选择 isbn，因为它是变体对象，它没有该成员。

尝试:

Dim lookFor As Variant
Dim rng As Range
Dim isbn As Variant

lookFor = Sheets("AAP Dashboard").Range("C3").Value
Set rng = Sheets("Books").Columns("A:I")

isbn = Application.WorksheetFunction.VLookup(lookFor, rng, 2, FALSE)

Application.ScreenUpdating = False
Sheets("AAP Dashboard").Range("C4").Value = isbn
Application.ScreenUpdating = True

我认为您在 Application 和 Vlookup 之间缺少一个对象，请添加“WorksheetFunction”。另请注意，vlookup 返回它在第 2 列中找到的值，因此无需复制和粘贴。最后请注意，Vlookup的第一个参数是一个值而不是范围对象，因此我将lookFor更改为Variant