如何通过 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
在 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