【分享成果，随喜正能量】 生活需要一种从容的心态，脚步的匆忙并不妨碍内心的恬淡和从容，生活中最平凡的脚步，最平凡的心态，最平凡的日子，最平凡的滋味。 ??

《VBA数据库解决方案》教程是我推出的第二套教程，目前已经是第一版修订了。这套教程定位于中级，是学完字典后的另一个专题讲解。数据库是数据处理的利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，教程第一版的修订内容主要是完成所有程序文件的32位和64位OFFICE系统测试。

这套教程共两册，八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是：ADO对数据的排重处理

第四十五讲 利用ADO,实现工作表数据的排重处理

大家好，我们今天继续VBA数据库解决方案的学习，这讲的内容是利用ADO实现工作表数据的排重处。

1 应用场景的具体分析

实例:在我的工作表中有如下的数据，

很显然有一部分型号和生产厂的数据是重复的，我们的目标是把这些重复的值只是保留一个，然后把净化的数据放到一页文件中，该如何做到呢？

2 利用ADO,实现工作表数据的排重处理的代码及代码解读

下面我给出我的代码：

Sub mynzRecords_45() '第45讲，利用ADO,实现工作表数据的排重处理

Dim cnADO, rsADO As Object

Dim strPath, strTable, strSQL As String

Set cnADO = CreateObject("ADODB.Connection")

Dim Sht1, Sht2 As Worksheet

Set Sht1 = Worksheets("45")

Set Sht2 = Worksheets("数据")

Sht1.Activate

'建立一个ADO的连接

strPath = ThisWorkbook.FullName

cnADO.Open "Provider=Microsoft.ACE.OLEDB.12.0;" _

& "Extended Properties=Excel 12.0;" _

& "Data Source=" & strPath

strSQL = "SELECT DISTINCT 型号,生产厂 FROM [数据$]"

Cells.ClearContents

Range("A1:B1") = Array("型号", "生产厂")

Range("A2").CopyFromRecordset cnADO.Execute(strSQL)

cnADO.Close

Set cnADO = Nothing

End Sub

代码的截图：

代码的讲解：

1） strSQL = "SELECT DISTINCT 型号,生产厂 FROM [数据$]" 这句代码的意义是在型号和生产厂的字段值中去掉重复的值。其中利用了SQL SELECT DISTINCT 语句。

语法：SELECT DISTINCT 列名称 FROM 表名称

语法说明：在表中，可能会包含重复值。这并不成问题，不过，有时您也许希望仅仅列出不同（distinct）的值。关键词 DISTINCT 用于返回唯一不同的值。

2） Range("A1:B1") = Array("型号", "生产厂")

Range("A2").CopyFromRecordset cnADO.Execute(strSQL)

上述语句给出A1:B1填入的数组，然后从记录中拷贝出记录到A2之后的单元格中。

代码的运行：

今日内容回向：

1 如何实现列数据的排重？

2 如何理解本节用的SQL语句SELECT DISTINCT 列名称 FROM 表名称。

本讲内容参考程序文件：VBA与数据库操作（第二册）.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】 在你最艰难的时候，别老想着太远的将来，只要鼓励自己过好今天就好。这世间有太多的猝不及防，有些东西，根本不配占有你的情绪，人生就是一场体验，请你尽兴吧！。