跪求高手帮助解决大难题！

云是一切 · 发表于 2011-3-16 10:18

请教高人将附件中表1中与表2中相同的数据筛选出来，最好带过程，先谢谢了！第一次登陆，甚为感谢，不当之处请多指教！

dsmch · 发表于 2011-3-16 10:42

每表做一辅助列，先把两列数据合并，然后用countif函数或vlookup函数判断
如数据较多，也可以用vba解决。

kingsff89 · 发表于 2011-3-16 10:54

请阅附件~~~~~~~~~~~~~~~~~

lenghonghai · 发表于 2011-3-16 11:05

Private Sub CommandButton1_Click()
Dim cn As Object
Set cn = CreateObject("adodb.connection")
cn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;';data source=" & ThisWorkbook.FullName
s = "select * from [表1$] a,[表2$] b where a.编码=b.编码 and a.数量=b.数量"
Range("a1").CopyFromRecordset cn.Execute(s)
cn.Close
End Sub

lenghonghai · 发表于 2011-3-16 11:10

云是一切 · 发表于 2011-3-16 13:35

非常感谢！

likun1005 · 发表于 2011-3-18 20:17

5楼好样的

		自动登录	找回密码
密码			免费注册

[求助] 跪求高手帮助解决大难题！

VBAa

看看动画，呵呵