Question

excel 中的vba问题: find 和copy函数的应用

操作的条件：sheet1的a列某行的内容与sheet2 a列某行的内容相同。
操作：把sheet2 b、c、d列中所有的单元格的内容, 对应地复制到sheet1 b、c、d列中满足上述条件的单元格。

请问高手们，vba应该怎么写？急求～ 致谢！

Answer 1

不用VBA也可
sheet12 A2列公式
=IF(COUNTIF(Sheet1!$A:$A,$A2)>=0,A2,"")
向下向右复制。
然后对sheet2筛选不为空的，复制后粘贴到新表即可

追问

很感谢你，但我还是想用vba。因为我这边的情况是：sheet1 A列中的数据同sheet2 A列中不完全相同。

追答

哦，我没看明白，你要往SHEET1中填啊。
在sheet1B2写公式
=IF(ISNA(VLOOKUP($A2,Sheet2!$A:$C,COLUMN(B1),0)),"",VLOOKUP($A2,Sheet2!$A:$A,COLUMN(B1),0))
向下向右复制
如果你执意要用VBA，如果数据量大，copy效率并不高，用数组字典比较还比较好的，当然你要必须要格式的话，那还是copy，如果没人回答你的话，我有时间帮你写个

追问

我要比对的是sheet1 中的D列，和sheet2 中的B列。如果sheet1 的D列数据相符，则在sheet1该行的N、O、P、Q列，复制上sheet2的A、B、C、D列。两个表的第一行都有列标签的。

麻烦您帮我写VBA或者其他有效的公式了。如果可用，我直接把我所有积分都给你吧。感谢了。

追答

Sub 对比填充()
Dim arr, brr, crr, d As Object, n&, m&
Set d = CreateObject("scripting.dictionary")
m = Sheets("Sheet1").[d65536].End(xlUp).Row
n = Sheets("Sheet2").[b65536].End(xlUp).Row
arr = Sheets("Sheet2").Range("a1:d" & n)
brr = Sheets("Sheet1").Range("d1:q" & m)
ReDim crr(2 To m, 1 To 4)
For i = 2 To n
If Not d.exists(arr(i, 2)) Then d.Add arr(i, 2), arr(i, 1) & "!" & arr(i, 2) & "!" & arr(i, 3) & "!" & arr(i, 4)
Next
For i = 2 To m
x = brr(i, 1)
If d.exists(x) Then
crr(i, 1) = Split(d(x), "!")(0)
crr(i, 2) = Split(d(x), "!")(1)
crr(i, 3) = Split(d(x), "!")(2)
crr(i, 4) = Split(d(x), "!")(3)
Else '不知道你具体数据怎么样，以下是保存你原来n到q列的数据，如果没有就没有必要了，但放上也不要紧
crr(i, 1) = brr(i, 11)
crr(i, 2) = brr(i, 12)
crr(i, 3) = brr(i, 13)
crr(i, 4) = brr(i, 14)
End If
Next
Sheets("Sheet1").Range("n2:q" & m) = crr
Set d = Nothing
End Sub
我估计的数据中不会出现感叹号，如果有感叹号，请把代码中的"!"改为一个你数据中不会出现的符号。
公式法：
前提是你sheet1的N到Q列没有手动填写的数据，否则你就必须用前面那个宏。
在n2 写公式=IF(ISNA(INDEX(Sheet2!A:A,MATCH($D2,Sheet2!$B:$B,0))),"",INDEX(Sheet2!A:A,MATCH($D2,Sheet2!$B:$B,0)))
向下向右复制。公式我测试过了。
P.S:也不知道你有多少分，但你这么说蛮吸引人，我并不要你的积分，只要你一个采纳就可以。主要是能够帮助你让我感觉到自己的价值，其他都是次要的。

Answer 2

　　方法：
　　不用VBA。
　　sheet12 A2列公式
=IF(COUNTIF(Sheet1!$A:$A,$A2)>=0,A2,"")
向下向右复制。
然后对sheet2筛选不为空的，复制后粘贴到新表即可

Answer 3

你不就是筛选嘛，说这么复杂，录制代码，
手动操作一次，在sheet2操作，数据源选在sheet1的相关表格 ，因为EXCEL不可以把数据筛选到其他表，但可以从其他表筛选到本表！
代码录制完毕后，你看看，自己改吧改吧
如果有格式需要，一并录制
给这个代码加上触发事件或者按钮指定！

追问

可以详细一点吗？谢谢

Answer 4

duhefiuewfehwfhuiwfudfuweqifiuheiugf