我完全懂你的需求——把同一个IDName对应的多个SpecialtyCode横向展开成列，这确实戳中了Access交叉表查询的一个小痛点：默认要求值字段必须和行、列标题字段不同。不过别担心，这里有两种实用的方法帮你实现想要的效果：

方法一：先给SpecialtyCode加序号，再用交叉表查询 #

这是最直接的方案，核心思路是给每个IDName下的SpecialtyCode生成一个序号（比如1、2、3...），这样就能用这个序号当列标题，SpecialtyCode本身做值字段了。

步骤1：创建带序号的基础查询 #

打开Access的SQL视图，输入以下代码（记得把你的表名替换成你实际的表名）：

SELECT 
    IDName,
    SpecialtyCode,
    (SELECT COUNT(*) FROM 你的表名 AS T2 WHERE T2.IDName = T1.IDName AND T2.SpecialtyCode <= T1.SpecialtyCode) AS Seq
FROM 你的表名 AS T1
ORDER BY IDName, Seq;

保存这个查询，比如命名为带序号的Specialty查询。这个查询会给每个IDName下的SpecialtyCode按大小分配一个序号，让同一个IDName下的每个SpecialtyCode都有唯一标识。

步骤2：基于序号查询创建交叉表 #

再新建一个查询，切换到SQL视图，输入：

TRANSFORM First(SpecialtyCode)
SELECT IDName
FROM 带序号的Specialty查询
GROUP BY IDName
PIVOT "SpecialtyCode" & Seq;

运行这个查询，你就能得到类似这样的结果：

如果觉得列名里的数字看着别扭，也可以手动给列加别名，比如把"SpecialtyCode" & Seq改成"SpecialtyCode" & IIF(Seq=1,"",Seq)，不过默认格式已经能满足你的核心需求了。

方法二：用VBA生成动态交叉表（适合数量不固定的情况） #

如果每个IDName下的SpecialtyCode数量差异很大，静态交叉表可能会出现列不够或者多余的情况，这时候可以用VBA自动生成适配的交叉表查询。

打开Access的VBA编辑器（按Alt+F11），插入一个模块，粘贴以下代码：

Sub CreateDynamicCrosstab()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim strCols As String
    
    Set db = CurrentDb()
    
    ' 获取所有需要的列名（自动匹配最大的序号数量）
    Set rs = db.OpenRecordset("SELECT DISTINCT 'SpecialtyCode' & (SELECT COUNT(*) FROM 你的表名 AS T2 WHERE T2.IDName = T1.IDName AND T2.SpecialtyCode <= T1.SpecialtyCode) AS ColName FROM 你的表名 AS T1 ORDER BY ColName")
    
    ' 拼接列名字符串
    Do While Not rs.EOF
        strCols = strCols & "," & rs!ColName
        rs.MoveNext
    Loop
    strCols = Mid(strCols, 2) ' 去掉开头的逗号
    
    ' 构建动态交叉表SQL
    strSQL = "TRANSFORM First(SpecialtyCode) " & _
             "SELECT IDName " & _
             "FROM (SELECT IDName, SpecialtyCode, (SELECT COUNT(*) FROM 你的表名 AS T2 WHERE T2.IDName = T1.IDName AND T2.SpecialtyCode <= T1.SpecialtyCode) AS Seq FROM 你的表名 AS T1) AS Temp " & _
             "GROUP BY IDName " & _
             "PIVOT 'SpecialtyCode' & Seq IN (" & strCols & ");"
    
    ' 创建并保存查询对象
    On Error Resume Next
    db.QueryDefs.Delete "动态Specialty交叉表" ' 如果已有同名查询先删除
    On Error GoTo 0
    db.CreateQueryDef("动态Specialty交叉表", strSQL)
    
    MsgBox "动态交叉表查询已创建完成，快去查询里看看吧！"
    
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub

替换代码里的你的表名，运行这个宏，Access会自动生成一个名为动态Specialty交叉表的查询，它会根据你表中的实际数据自动调整列的数量，非常灵活。

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