在MS Access中按排序顺序合并同记录数的两个表

你遇到的问题很典型——没有可靠的关联键，内连接会产生冗余数据，加自动编号又碰到锁限制，导出Excel操作繁琐还容易出错。这里给你两个靠谱的解决办法：

方法1：用子查询生成排序行号，再关联合并 #

既然两个表记录数完全一致，我们可以给每个表按col3字母排序后生成唯一行号，再通过行号精准关联，彻底避免内连接的冗余问题。

第一步：给表1生成带行号的查询 #

新建查询（命名为qry_Table1_RowNum即可），粘贴下面的SQL语句：

SELECT 
    t1.*,
    (SELECT COUNT(*) FROM Table1 AS t2 
     WHERE t2.col3 < t1.col3 
        OR (t2.col3 = t1.col3 AND t2.[任意可区分字段] <= t1.[任意可区分字段])) AS RowNum
FROM Table1 AS t1
ORDER BY t1.col3;

如果表1没有现成的唯一字段，随便挑一个能区分同col3记录的字段就行（比如某个文本/数值字段），核心是给同col3的记录生成不同的序号。

第二步：给表2生成带行号的查询 #

同理新建qry_Table2_RowNum，把SQL里的Table1替换为Table2：

SELECT 
    t2.*,
    (SELECT COUNT(*) FROM Table2 AS t3 
     WHERE t3.col3 < t2.col3 
        OR (t3.col3 = t2.col3 AND t3.[任意可区分字段] <= t2.[任意可区分字段])) AS RowNum
FROM Table2 AS t2
ORDER BY t2.col3;

第三步：合并两个带行号的查询 #

新建最终合并查询，通过RowNum字段关联：

SELECT 
    q1.*,
    q2.*
FROM qry_Table1_RowNum AS q1
INNER JOIN qry_Table2_RowNum AS q2 ON q1.RowNum = q2.RowNum;

这样得到的结果就是两个表按col3排序后逐行对应的合并数据，不会出现冗余。

方法2：用VBA代码逐行读取合并（适合中小数据量） #

如果子查询运行速度慢，或者你更习惯用代码操作，试试这个VBA方案：

1. 先创建一个新表CombinedTable，把两个表的所有字段都添加进去（如果有重名字段，给表2的字段加个前缀，比如Table2_col1避免冲突）。
2. 按Alt+F11打开VBA编辑器，插入模块，粘贴以下代码：

Sub MergeTablesByCol3()
    Dim rs1 As Recordset, rs2 As Recordset, rsCombined As Recordset
    Dim db As Database
    Dim fld As Field
    
    Set db = CurrentDb
    '打开两个按col3排序的记录集
    Set rs1 = db.OpenRecordset("SELECT * FROM Table1 ORDER BY col3", dbOpenDynaset)
    Set rs2 = db.OpenRecordset("SELECT * FROM Table2 ORDER BY col3", dbOpenDynaset)
    Set rsCombined = db.OpenRecordset("CombinedTable", dbOpenDynaset)
    
    rs1.MoveFirst
    rs2.MoveFirst
    
    '逐行复制数据到合并表
    Do While Not rs1.EOF And Not rs2.EOF
        rsCombined.AddNew
        '复制表1的所有字段
        For Each fld In rs1.Fields
            rsCombined(fld.Name) = rs1(fld.Name)
        Next
        '复制表2的所有字段（用前缀区分重名字段）
        For Each fld In rs2.Fields
            rsCombined("Table2_" & fld.Name) = rs2(fld.Name)
        Next
        rsCombined.Update
        
        rs1.MoveNext
        rs2.MoveNext
    Loop
    
    '收尾清理资源
    rs1.Close: rs2.Close: rsCombined.Close
    Set rs1 = Nothing: Set rs2 = Nothing: Set rsCombined = Nothing: Set db = Nothing
    
    MsgBox "合并完成！"
End Sub

运行这个宏，就能自动完成按col3排序的逐行合并操作。

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