Question

EXCEL VBA 怎样实现用Sheet2里的数据在sheet1里查找，找到后改写该行的f的值为“OK”

请有一定vba经验的程序员来回答，用excel公式函数好像已经不能解决。能给出代码最好，谢谢。数据如

图片





Answer 1

楼主不一定要用VBA，变通一下用内置公式iferror和vlookup即可，如下示意图中公式：

若vlookup查询的值不存在，则会报错，用iferror抓取就行了。

若用VBA，数据量大和电脑配置低的时候运算效率低，另外对于不了解VBA的人来说，数据布置稍微变动后也代码维护也是困难的事情。

ps. 不仅可以用&符连接查询，还可用数组操作{Shift+Ctrl+Enter}逆向查询。

Answer 2

这个不是太复杂,只是今天太晚了,明天帮你弄吧

代码如下,详见附件

Private Sub CommandButton1_Click()

   Dim i&, Ra As Range

   Application.ScreenUpdating = False

   For i = 2 To [b65536].End(3).Row

      Set Ra = Sheet2.Columns("B").Find(Range("B" & i) & Range("C" & i) & Range("D" & i))

      If Not Ra Is Nothing Then Range("F" & i) = Ra.Offset(0, 2)

   Next

   Application.ScreenUpdating = True

End Sub

Answer 3

我会 - - 但是你把文件发给我。。。。