如何在Access中按指定列分组合并内容并以逗号分隔

你要实现的分组字符串拼接功能，Access没有内置函数支持，以下是最容易落地的两种方案：

方案一：自定义VBA函数 + 聚合查询（推荐，适合大量数据场景） #

步骤1：导入自定义拼接函数 #

1. 打开你的Access文件，按Alt + F11调出VBA编辑器
2. 右键点击左侧工程栏的你的数据库名称，选择「插入」→「模块」
3. 在弹出的代码编辑窗口粘贴以下代码：

Function ConcatGroup(groupVal As Variant, concatField As String, tableName As String, Optional delimiter As String = ",") As String
    Dim rs As DAO.Recordset
    Dim sql As String
    Dim result As String
    ' 处理分组值为空的情况
    If IsNull(groupVal) Then
        ConcatGroup = ""
        Exit Function
    End If
    ' 构造查询语句，筛选当前分组的所有数据
    sql = "SELECT [" & concatField & "] FROM [" & tableName & "] WHERE [你的分组字段名] = '" & Replace(groupVal, "'", "''") & "'"
    Set rs = CurrentDb.OpenRecordset(sql, dbOpenSnapshot)
    ' 遍历拼接
    Do While Not rs.EOF
        If Not IsNull(rs.Fields(0).Value) Then
            If result <> "" Then result = result & delimiter
            result = result & rs.Fields(0).Value
        End If
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    ConcatGroup = result
End Function

注意：把代码里的你的分组字段名替换成你实际用来分组的列名，比如要按「部门」分组就改成部门

4. 按Ctrl + S保存模块，模块名可以随便取（比如自定义函数）

步骤2：运行聚合查询得到结果 #

1. 新建一个空白查询，切换到SQL视图，粘贴以下SQL语句：

SELECT [你的分组字段名], ConcatGroup([你的分组字段名], "要合并的字段名", "你的表名") AS 合并后内容
FROM [你的表名]
GROUP BY [你的分组字段名];

按实际情况替换三个占位符：你的分组字段名、要合并的字段名、你的表名，比如表叫员工表，按部门分组合并员工姓名，就改成：

SELECT [部门], ConcatGroup([部门], "员工姓名", "员工表") AS 同部门员工名单
FROM [员工表]
GROUP BY [部门];

2. 运行查询即可得到你要的分组合并结果。

方案二：无VBA方案（仅适合小数据量） #

如果不想启用VBA，可以用交叉查询+字段拼接实现，但操作繁琐且数据超过1000行时效率极低，不推荐。

注意事项 #

• 运行前需要在Access的「信任中心」→「宏设置」里选择「启用所有宏」，或者打开文件时点击顶部的「启用内容」按钮，否则VBA函数无法运行
• 如果合并后的内容长度超过255字符，需要把查询结果里的「合并后内容」字段类型设置为「长文本（备注）」，否则内容会被截断
• Access没有内置名为COMMON的聚合函数，你之前的尝试失败是因为调用了不存在的内置功能

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