Access/VBA/Excel-14-消除重复值

最新推荐文章于 2024-03-27 15:55:44 发布

「已注销」

最新推荐文章于 2024-03-27 15:55:44 发布

阅读量797

点赞数

CC 4.0 BY-SA版权

分类专栏： Access 文章标签： distinct Access SQL

本文链接：https://blog.youkuaiyun.com/fourSeasonBeans/article/details/79100581

Access 专栏收录该内容

32 篇文章

订阅专栏

本文介绍了如何在Access中使用SQL去除字段中的重复值，以Excel作为操作界面，Access作为数据库。通过核心SQL语句`DISTINCT`来确保输出的省份信息唯一，从而实现数据去重。

微信公众号原文

系统：Windows 7
软件：Excel 2010 / Access 2010

这个系列开展一个新的篇章，重点关注Access数据库
主体框架：以Excel作为操作界面，Access作为数据库
今天讲讲，如何从存在重复值的字段中消除重复，同样的信息只保留一个
涉及知识：ADO，SQL：Select

Part 1：题目

从地址表中获取含有的省份信息，结果是：广东省，湖南省，安徽省
那么怎么使用SQL实现呢

地址数据表

Part 2：代码

Sub test()
    Dim cnn As New ADODB.Connection '连接
    Dim rs As New ADODB.Recordset
    Dim SQL As String
    Dim tblName
    Dim dbAddr

    dbAddr = ThisWorkbook.Path & "\地址信息.accdb"
    tblName = "地址"

    '连接数据库
    With cnn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .Open "Data Source=" & dbAddr
    End With

    opFilds = "省份"

    SQL = "Select distinct " & opFilds & " from " & tblName

    Set rs = cnn.Execute(SQL)

    Dim sht
    Dim fildNum

    Set sht = ThisWorkbook.Worksheets("示例")
    sht.Cells.ClearContents

    fildNum = rs.Fields.Count
    For j = 0 To fildNum - 1 Step 1
        fildName = rs.Fields(j).Name
        sht.Cells(1, j + 1) = fildName
    Next j

    sht.Cells(2, 1).CopyFromRecordset rs

    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing

End Sub