根据不同条件进行查重

cherga · 发表于 2018-12-19 15:18

根据三种情况进行查重，并对重复的信息进行填充。设置三个按钮
（1）姓名+性别+出生年月
（2）姓名+身份证
（3）身份证+出生日期

如果将重复的其中一条删去，再次查重就不会列入重复项并取消重复填充

cherga · 发表于 2018-12-19 15:41

求解求大神看看

cherga · 发表于 2018-12-19 16:37

请大神帮帮忙

cherga · 发表于 2018-12-19 17:00

不要沉下去

LMY123 · 发表于 2018-12-19 17:41

cherga 发表于 2018-12-19 17:00
不要沉下去

Sub ADO法_身份证不重复值()
'身份证是全国唯一的，就应该不需要其它数据了吧
'http://club.excelhome.net/forum.php?mod=viewthread&tid=1061487&extra=page%3D1
Set 连接 = CreateObject("ADODB.Connection"): Set 记录 = CreateObject("ADODB.Recordset")
PathStr = ThisWorkbook.FullName '设置工作簿的完整路径和名称
Select Case Application.Version * 1 '设置连接字符串,根据版本创建连接
Case Is <= 11
      strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
Case Is >= 12
      strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
End Select
'设置SQL查询语句
strSQL = "select DISTINCT 身份证号 from [Sheet1$] WHERE 身份证号 IS NOT NULL"
连接.Open strConn '打开数据库链接
Set 记录 = 连接.Execute(strSQL) '执行查询，并将结果输出到记录集对象
With Sheet3
      .Cells.Clear
      For 列 = 0 To 记录.Fields.Count - 1 '填写标题
         .Cells(1, 列 + 1) = 记录.Fields(列).Name
      Next 列
      .Range("A2").CopyFromRecordset 记录
      .Cells.EntireColumn.AutoFit  '自动调整列宽
      .Cells.EntireColumn.AutoFit  '自动调整列宽
End With
记录.Close: Set 记录 = Nothing
连接.Close: Set 连接 = Nothing
End Sub

LMY123 · 发表于 2018-12-19 17:42

cherga 发表于 2018-12-19 17:00
不要沉下去

查重-ADO法.rar (28.5 KB, 下载次数: 25)

cherga · 发表于 2018-12-19 18:55

LMY123 发表于 2018-12-19 17:42

能否帮忙解答下实在是看不懂

LMY123 · 发表于 2018-12-19 19:22

cherga 发表于 2018-12-19 18:55
能否帮忙解答下实在是看不懂

http://club.excelhome.net/forum. ... &extra=page%3D1

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

[求助] 根据不同条件进行查重