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).Value

Offset是Range对象的一种方法，因此您必须将其应用于单元格而不是单元格的值

Answer 2

尝试这样的事情：

Sub LookupAndSort()

Dim AllCells As Range
Dim AllCellsRange As Range

Set AllCellsRange = Range("B6", Range("b7").End(xlToRight).Offset(-1, 0))

For Each AllCells In AllCellsRange
    AllCells.Value = Application.WorksheetFunction.VLookup( _
    AllCells.Value.Offset(1, 0), Worksheets("Ref2").Range("A:C"), 3, False)
Next AllCells
End Sub

我还没有测试过，所以让我知道它是否适合你

Excel VBA - For Each - In＆amp; VLOOKUP

2 个答案: