Access表单列文本去重函数优化：解决末尾多余逗号问题

嘿，这个问题我之前也碰到过！本质上是因为你的函数在拼接去重后的项时，每个元素后面都硬加了, ——哪怕是最后一个元素，所以当只有单个值时，就会留下多余的, 。下面给你两种实用的调整方案：

方案一：拼接后移除末尾的多余分隔符 #

如果你的函数是通过循环逐个拼接元素（比如result = result & item & ", "），那只需要在返回结果前，检查并去掉末尾的, 即可。

假设你原来的函数最后部分是这样的：

Dim result As String
For Each item In uniqueItems
    result = result & item & ", "
Next
RemoveDuplicates = result

把返回语句改成：

Dim result As String
For Each item In uniqueItems
    result = result & item & ", "
Next
' 去掉末尾的", "
If Len(result) > 0 Then
    RemoveDuplicates = Left(result, Len(result) - 2)
Else
    RemoveDuplicates = ""
End If

这里用Len(result) - 2是因为, 占两个字符，只要结果不为空，就截取到倒数第三个字符，完美去掉多余的分隔符。

方案二：用Join函数拼接（更优雅） #

另一种更稳妥的方式是先把去重后的元素存入数组，再用VBA的Join函数拼接。Join只会在元素之间插入分隔符，绝对不会在最后多加，从根源上避免这个问题。

调整后的函数大概是这样：

Function RemoveDuplicates(inputStr As String) As String
    Dim arr() As String
    Dim item As Variant
    Dim uniqueItems As Collection
    Dim uniqueArr() As String
    Dim i As Integer
    
    Set uniqueItems = New Collection
    arr = Split(inputStr, ", ")
    
    ' 收集去重元素
    On Error Resume Next
    For Each item In arr
        uniqueItems.Add item, Key:=CStr(item)
    Next
    On Error GoTo 0
    
    ' 将集合转成数组
    ReDim uniqueArr(1 To uniqueItems.Count)
    For i = 1 To uniqueItems.Count
        uniqueArr(i) = uniqueItems(i)
    Next
    
    ' 用Join拼接，自动处理分隔符
    RemoveDuplicates = Join(uniqueArr, ", ")
End Function

这种方式不管是单个值还是多个值，都会输出干净的结果——比如单个值直接返回Cardholder，多个值返回Cardholder, Reconciler, Approver。

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