如何快速挑选符合条件的数据，谢谢了？

汉武大帝888

在这个全矿数据表中，1表是全矿职工的的补贴明细，2表是全矿已经领走补贴的人的明细，3表我想把未领走补贴名单弄进来。1表和2表中职工的补贴编号是唯一的。哪位大神来教下我，不胜感谢!

jiminyanyan

http://club.excelhome.net/thread-1144225-1-1.html

汉武大帝888

jiminyanyan 发表于 2017-3-15 13:15
http://club.excelhome.net/thread-1144225-1-1.html

谢谢您的无私的帮助，刚试了下，还行，但只能过来3列，我其实还要其他几列的数据

huanglicheng

结果
全矿数据表.zip (182.38 KB, 下载次数: 2)

2017-3-15 13:50 上传

点击文件名下载附件

汉武大帝888

huanglicheng 发表于 2017-3-15 13:50
结果

您是昨实现的呀？有过程呀，求过程，谢谢，以后还要用的。

汉武大帝888

huanglicheng 发表于 2017-3-15 13:50
结果

你这个表挑选的好像不对呀，比如，方启明在1表和2表中都有，您也把他挑到表3来了。

huanglicheng

汉武大帝888 发表于 2017-3-15 14:06
您是昨实现的呀？有过程呀，求过程，谢谢，以后还要用的。

过程有点多，用我自己的小工具弄的，所以就不献丑了

汉武大帝888

huanglicheng 发表于 2017-3-15 13:50
结果

1表和2表的同一个人的补贴编号肯定是一样的，但是卡号有可能不一样。所以以补贴编号为唯一值，像1表和表2都有方启明这个人，但他们的补贴编号是一样的，卡号不一样，他们也是一个人。不能补挑选到表3来的

grf1973

1. Sub grf()
   
2.     Dim cnn, rst, sql
   
3.     Set cnn = CreateObject("adodb.connection")
   
4.     Set rst = CreateObject("adodb.recordset")
   
5.     cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0';data source=" & ThisWorkbook.FullName
   
6.     sql = "select * from [1$] where 姓名 not in (select 人员姓名 from [2$])"
   
7.     rst.Open sql, cnn, 1, 3
   
8.     Sheet3.[a2].CopyFromRecordset rst
   
9. End Sub
   

复制代码

汉武大帝888

grf1973 发表于 2017-3-15 14:49

您好，按钮点了后， 不能用.