如何通过 VBA in Excel 从 VLOOKUP 中提取值?

How to extract values from VLOOKUP via VBA in Excel?

在 Excel 的一个 sheet 中(称为 3 月 19 日),我想使用每个单元格(范围 A5:A59)作为另一个 sheet 的查找值在 Excel。然后,当它完成后,我想粘贴或提取在 March 19 sheet 中找到的内容(与它们的查找值并排)。

我在网上看了几个解决方案,但我的问题是我似乎无法编写粘贴通过 vlookup 找到的值的代码?查看 End Sub 之前的最后一行。

我对 VBA 的了解非常基础,我仍在通过教程学习 :) 非常感谢您的帮助。

Sub CopyNumbers() 
    Dim account As Long, aop As Long 
    account = Worksheets("March 19").Range("A5:A59") 
    For each c1 in account 
    aop = Application.WorksheetFunction.Vlookup(c1,Worksheets("AOP").Range("A5:P39"),6,FALSE) 
    Worksheets("March 19").Range("D5:D59") = aop
End Sub

尝试这样的事情

Sub CopyNumbers() 
    Dim c As Range, aop As Variant  
    For each c in Worksheets("March 19").Range("A5:A59").Cells
        'drop the Worksheetfunction and you won't get a run-time
        '  error if there's no match
        aop = Application.Vlookup(c, Worksheets("AOP").Range("A5:P39"),6,FALSE) 
        c.Offset(0, 3).Value = IIf(IsError(aop), "No Match", aop)
    Next c
End Sub