如何在SQL（Access）表中清除指定字段内的重复值且不删除原有数据行

前置逻辑说明 #

本次处理不涉及删除任意表数据行，仅针对目标字段单个单元格内存储的重复取值做冗余清理，适配Access数据库的功能特性，规避此前纯字符串拆分SQL失效的常见问题。

方案1：VBA自定义函数处理（兼容性最优，推荐使用） #

Access原生SQL无内置字符串拆分去重函数，纯SQL实现的复杂度较高，通过轻量VBA函数可直接匹配需求：

1. 操作步骤：打开Access数据库，按下Alt+F11调出VBA编辑器，插入标准模块，粘贴以下代码并保存：

   Function RemoveDupInCell(rawText As String, delimiter As String) As String
       Dim splitArr As Variant
       Dim recordDict As Object
       Dim loopIdx As Integer
       Dim cleanItem As String
       ' 初始化字典结构自动去重
       Set recordDict = CreateObject("Scripting.Dictionary")
       ' 按实际分隔符拆分原始单元格内容
       splitArr = Split(rawText, delimiter)
       For loopIdx = 0 To UBound(splitArr)
           ' 清理单段前后空格，跳过空值
           cleanItem = Trim(splitArr(loopIdx))
           If cleanItem <> "" Then
               ' 字典自动过滤重复值
               If Not recordDict.Exists(cleanItem) Then
                   recordDict.Add cleanItem, ""
               End If
           End If
       Next loopIdx
       ' 按原分隔符拼接去重后的内容返回
       RemoveDupInCell = Join(recordDict.Keys, delimiter)
       Set recordDict = Nothing
   End Function
   

2. 调用方式：编写更新查询直接引用函数即可，参考SQL语句，根据实际表名、字段名、分隔符调整参数：

   UPDATE 你的目标表
   SET 待处理字段 = RemoveDupInCell([待处理字段], ",")
   

3. 特性说明：
   • 自动忽略前后空格导致的伪重复值，不会破坏单元格内非重复内容的原有顺序
   • 操作过程仅修改目标字段的单元格内容，完全不涉及数据行删除
   • 支持任意长度的文本字段，无数据量限制

方案2：纯SQL逻辑实现（无VBA环境限制场景使用） #

如果环境不允许启用VBA，可通过辅助数字表的拆分逻辑实现去重，规避此前拆分SQL失效的问题：

1. 生成连续数字辅助表：执行以下查询，将结果另存为名为tbl_NumAssist的表，数字序列覆盖待处理字段的最大分隔段数即可

   SELECT DISTINCT 
       Val(Mid(Numbers.NumStr, t1.Ord, 1)) AS num
   FROM 
       (SELECT "123456789012345678901234567890" AS NumStr FROM MSysObjects) AS Numbers,
       (SELECT 1 AS Ord FROM MSysObjects 
        UNION SELECT 2 FROM MSysObjects 
        UNION SELECT 3 FROM MSysObjects 
        UNION SELECT 4 FROM MSysObjects 
        UNION SELECT 5 FROM MSysObjects 
        UNION SELECT 6 FROM MSysObjects 
        UNION SELECT 7 FROM MSysObjects 
        UNION SELECT 8 FROM MSysObjects 
        UNION SELECT 9 FROM MSysObjects 
        UNION SELECT 10 FROM MSysObjects) AS t1
   WHERE Val(Mid(Numbers.NumStr, t1.Ord, 1)) >0
   

2. 构建单元格拆分查询：将每个待处理单元格按分隔符拆为独立值，绑定原表主键保证数据可追溯，查询存为qry_CellSplit：

   SELECT 
       你的目标表.主键ID,
       Trim(Mid(
           待处理字段,
           [tbl_NumAssist].[num],
           IIf(
               InStr([tbl_NumAssist].[num]+1, [待处理字段], ",")=0,
               Len([待处理字段])-[tbl_NumAssist].[num]+1,
               InStr([tbl_NumAssist].[num]+1, [待处理字段], ",")-[tbl_NumAssist].[num]
           )
       )) AS split_content
   FROM 你的目标表, tbl_NumAssist
   WHERE 
       tbl_NumAssist.num <= Len(待处理字段)
       And Mid("," & 待处理字段 & ",", tbl_NumAssist.num,1) = ","
   

3. 执行去重更新：对拆分后的内容按主键过滤重复值，再拼回对应单元格，执行前可先对拆分查询做预览校验：

   注意：Access原生不支持字符串聚合拼接，该步骤可复用前述VBA编写的RemoveDupInCell做拼接，避免SQL循环性能问题

此前拆分SQL失效的常见原因 #

• 拆分逻辑未做边界判断，截断单元格内容导致匹配偏差
• 未清理单段内容的前后空格，将格式不同的同值判定为独立内容
• 去重逻辑错误按整行字段值比对，未绑定原主键定位对应单元格

内容的提问来源于stack exchange，提问作者Jafar95