Question

vba实现VLOOKUP取值

如图要实现：
A值在cd列取值，如果取到了，就获取D列对应的值填到B列中，VLOOKUP如下：
=VLOOKUP(A2,C:D,2,0)
图片如下：

那么VBA如何写呢？谢谢！！因为好多条件在一起执行，所以必须用VBA写

Answer 1

如果只是把这一句改用VBA的语法，那很简单，比如说：

=Application.VLookup(Range("A2"),Range("C:D"),2,0)

当然，既然用VBA解决问题而数据量比较大的话，那就不太建议还使用Excel函数，可以用数组或者字典之类的方法来解决。

追问

是不打算使用函数，但是VBA怎么能实现这个功能呢？

追答

数据不多就用上面我提供的那句代码吧，效率基本上是一样的。

追问

这个代码如果A列的值不在c列里面，会报错吧？后面的将无法再检查了

追答

在代码最前面加一句就行了：
On Error Resume Next

追问

On Error Resume Next
=Application.VLookup(Range("A2"),Range("C:D"),2,0)
这样的排序？ 呵呵

追答

虽然不是我的原意，但这样写也是没有问题的，只要在可能报错的语句前面就能达到效果了！