Access数据库需求：提取唯一邮箱并合并对应程序名称

我来帮你搞定这个问题，两种可行的方法都整理好了，你可以根据自己的需求选：

方法一：Access查询+自定义VBA函数（适合在Access内部直接操作） #

这个方法是在Access里创建一个自定义函数，然后通过查询调用它来合并内容，步骤如下：

1. 打开VBA编辑器：在Access里按Alt + F11打开编辑器，右键点击数据库名称，选择「插入」→「模块」。
2. 粘贴自定义函数代码：把下面的代码粘贴到模块里，记得把你的表名替换成你实际的数据表名称：

Function ConcatenateProgNames(strEmail As String) As String
    Dim rs As Recordset
    Dim strResult As String
    ' 处理Email里的单引号，避免SQL语法错误
    Dim safeEmail As String
    safeEmail = Replace(strEmail, "'", "''")
    
    Set rs = CurrentDb.OpenRecordset("SELECT Prog_Name FROM 你的表名 WHERE [Email Address] = '" & safeEmail & "'")
    
    Do While Not rs.EOF
        If strResult <> "" Then
            strResult = strResult & " / "
        End If
        strResult = strResult & rs!Prog_Name
        rs.MoveNext
    Loop
    
    ConcatenateProgNames = strResult
    rs.Close
    Set rs = Nothing
End Function

3. 创建合并查询：回到Access主界面，创建一个新的查询，切换到SQL视图，粘贴下面的SQL语句（同样替换你的表名）：

SELECT [Email Address], ConcatenateProgNames([Email Address]) AS [Prog_Name]
FROM 你的表名
GROUP BY [Email Address];

4. 运行查询：保存查询后运行，就能得到你想要的合并结果了。

方法二：VBScript脚本处理（适合外部批量操作或者自动化场景） #

如果需要用脚本批量处理，或者不想在Access里写VBA，可以用VBScript来实现，步骤如下：

1. 新建一个.vbs文件：比如命名为MergeProgNames.vbs，用记事本打开，粘贴下面的代码：

' 替换为你的Access数据库路径
strDbPath = "C:\YourDatabase.accdb"
' 替换为你的数据表名称
strTableName = "你的表名"

Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase strDbPath
Set objDb = objAccess.CurrentDb

' 用字典存储每个Email对应的合并Prog_Name
Set dicEmails = CreateObject("Scripting.Dictionary")

' 读取原表数据
Set rs = objDb.OpenRecordset("SELECT [Email Address], Prog_Name FROM " & strTableName)
Do While Not rs.EOF
    strEmail = rs![Email Address]
    strProg = rs!Prog_Name
    
    If dicEmails.Exists(strEmail) Then
        dicEmails(strEmail) = dicEmails(strEmail) & " / " & strProg
    Else
        dicEmails.Add strEmail, strProg
    End If
    
    rs.MoveNext
Loop
rs.Close

' 直接输出结果到控制台
WScript.Echo "Email Address | Prog_Name"
WScript.Echo "===================================="
For Each strEmail In dicEmails.Keys
    WScript.Echo strEmail & " | " & dicEmails(strEmail)
Next

' 如果你想把结果写入新表，先确保新表结构和原表一致，取消下面代码的注释
' Set rsNew = objDb.OpenRecordset("SELECT * FROM 合并结果表 WHERE 1=0")
' For Each strEmail In dicEmails.Keys
'     rsNew.AddNew
'     rsNew![Email Address] = strEmail
'     rsNew!Prog_Name = dicEmails(strEmail)
'     rsNew.Update
' Next
' rsNew.Close

objAccess.Close
Set objAccess = Nothing
Set dicEmails = Nothing

2. 修改配置：把代码里的数据库路径、表名替换成你实际的信息。
3. 运行脚本：双击.vbs文件，就能看到控制台输出合并后的结果，或者写入到指定的结果表中。

注意事项 #

• 字段名Email Address有空格，所以在SQL和VBA/VBScript里要用方括号[Email Address]包裹，避免语法错误。
• 如果Email里包含单引号，方法一里的Replace函数已经处理了这个情况，防止SQL注入和语法错误。
• 方法一需要确保Access启用了宏（如果弹出安全提示，选择启用内容）。

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