Excel VBA - For Each - In & Vlookup

Question

我正在尝试在我的代码中同时使用 ForEach 和 Vlookup。结果给了我一个运行时错误 424: Object Required 消息。请看下面的代码:

Sub LookupAndSort()
Dim cell As Range

For Each cell In Range("B6", Range("b7").End(xlToRight).Offset(-1, 0))
    cell.Value = Application.WorksheetFunction.VLookup( _
        cell.Value.Offset(1, 0), Worksheets("Ref2").Range("A:C"), 3, False)
Next cell

End Sub

Answer 1

更改cell.Value.Offset(1, 0)至cell.Offset(1, 0).ValueOffset是 Range 的一种方法对象，因此您必须将其应用于单元格而不是单元格的值