求助：VBA实现多条件排重？

lsdongjh

1. Private Sub CommandButton2_Click()
   
2.     Dim SH As Worksheet, rg As Range
   
3.     Dim lngRows As Long
   
4.     Dim Conn As Object, Rst As Object, strPath As String
   
5.     Dim strConn As String, strSQL As String
   
6.    
   
7.     Set SH = Sheets("Sheet1")
   
8.     Set rg = SH.Range("A2") '数据集载入的起始区域
   
9.     lngRows = Sheet1.Range("A" & Rows.Count).End(xlUp).Row 'A列最后非空单元格的行号
   
10.     '''''''''''''''''''''''''''''''''''''''''''''''''''
    
11.     '这一整段是 ADO的调用方式，不解释了。主要是根据不同的EXCEL版本，处理连接字符串
    
12.     Set Conn = CreateObject("ADODB.Connection")
    
13.     Set Rst = CreateObject("ADODB.Recordset")
    
14.     strPath = ThisWorkbook.FullName
    
15.     Select Case Application.Version * 1
    
16.         Case Is <= 11
    
17.             strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & strPath
    
18.         Case Is >= 12
    
19.             strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
    
20.     End Select
    
21. 
    
22.     Conn.Open strConn
    
23. 
    
24.     '''''''''''''''''''''''''''''''''
    
25.     'SQL语句的含义
    
26.     '从sheet1表中，找到 【电话】字段长度为7或11 的，并根据【单位】和【电话】两个字段进行去重
    
27.     strSQL = "SELECT 单位,电话 " & _
    
28.               "FROM [Sheet1$A1:B" & lngRows & "] " & _
    
29.               "WHERE (Len(电话) = 7 or  Len(电话) =11) " & _
    
30.               "Group By 单位,电话;"
    
31. 
    
32.     '''''''''''''''''''''''''''''''''''''''''
    
33.     Rst.Open strSQL, Conn, 3, 1
    
34.    
    
35.     '清除原有的数据
    
36.     Sheet1.Range("A2:B" & lngRows).ClearContents
    
37.     '从前面设定的起始区域，载入数据集
    
38.     rg.CopyFromRecordset Rst
    
39. 
    
40.     Set Rst = Nothing
    
41.     Set Conn = Nothing
    
42. End Sub
    
43. 
    

复制代码

lsdongjh

VBA实现多条件排重.rar (23.08 KB, 下载次数: 8)

2018-7-6 11:21 上传

点击文件名下载附件

xhsm2016

ruoyunruyan 发表于 2018-7-5 11:58

dic(Cells(i, 1) & Cells(i, 2)) = ""  这句是不是指如果关键字不在字典库，就将关键字加入字典库中，另外字典库中只加关键字不加入关键字项，这样不影响吗？这句还可以写成别的形式吗？比如以Add这种形式写出来，本人初学理解有点困难，还望老师指教。

xhsm2016

lsdongjh 发表于 2018-7-6 11:21

是不是需要安装什么插件，老师为啥我这里运行不了。点了没有任何反应，我看代码是有的。

lsdongjh

不用任何插件的，应该是你的数据库引擎有问题

xhsm2016

lsdongjh 发表于 2018-7-6 12:54
不用任何插件的，应该是你的数据库引擎有问题

是不是需要安装微软自带的数据库软件，我好像没有安装这个。不太懂。

lsdongjh

看一下你电脑的ODBC

xhsm2016

lsdongjh 发表于 2018-7-6 16:17
看一下你电脑的ODBC

如何查看不太懂。

lpxkk

学习了，注释真好，呵呵