MS Access SQL：根据列值将数据行拆分为多行的实现需求

我来分享几个在MS Access里实现这个需求的实用方法，亲测有效～

首先明确下需求：我们有这样一张数据表（假设表名叫CountryPages）：

需要把每一行根据NO_OF_PAGES的数值拆分成对应行数，拆分后NO_OF_PAGES列显示从1到原数值的连续数字，最终得到这样的结果：

方法一：使用数字辅助表 + 查询（推荐） #

首先我们需要一个数字辅助表，比如创建一张名为Numbers的表，只需要一列Num，里面填入从1到你业务中可能用到的最大NO_OF_PAGES值（比如这里最大是4，就填1、2、3、4）。

然后运行下面的SQL查询：

SELECT 
    cp.COUNTRY,
    n.Num AS NO_OF_PAGES
FROM 
    CountryPages cp,
    Numbers n
WHERE 
    n.Num <= cp.NO_OF_PAGES
ORDER BY 
    cp.COUNTRY,
    n.Num;

这个逻辑很简单：把原表和数字表做笛卡尔积，然后筛选出数字小于等于原表对应行的NO_OF_PAGES的记录，最后按国家和数字排序就得到我们想要的结果了。

方法二：临时生成数字序列（无需额外建表） #

如果不想专门建数字表，也可以用子查询临时生成需要的数字序列，适合临时处理或者数值范围不大的场景：

SELECT 
    cp.COUNTRY,
    n.Num AS NO_OF_PAGES
FROM 
    CountryPages cp,
    (
        SELECT 1 AS Num
        UNION ALL SELECT 2
        UNION ALL SELECT 3
        UNION ALL SELECT 4
        -- 要是需要更大的数值，继续往下加UNION ALL SELECT X就行
    ) n
WHERE 
    n.Num <= cp.NO_OF_PAGES
ORDER BY 
    cp.COUNTRY,
    n.Num;

这个方法省去了建表的步骤，直接在查询里生成需要的数字，灵活度很高。

补充：VBA方法（适合复杂场景） #

如果你的需求还有更多自定义逻辑，也可以用VBA来实现：

1. 先创建一张和原表结构一样的新表（比如叫CountryPages_Split）
2. 编写VBA代码遍历原表的每一行，根据NO_OF_PAGES的数值循环插入对应行数的记录：

Sub SplitCountryPages()
    Dim db As DAO.Database
    Dim rsOriginal As DAO.Recordset
    Dim rsNew As DAO.Recordset
    Dim i As Integer
    
    Set db = CurrentDb()
    Set rsOriginal = db.OpenRecordset("CountryPages")
    Set rsNew = db.OpenRecordset("CountryPages_Split")
    
    rsOriginal.MoveFirst
    Do Until rsOriginal.EOF
        For i = 1 To rsOriginal!NO_OF_PAGES
            rsNew.AddNew
            rsNew!COUNTRY = rsOriginal!COUNTRY
            rsNew!NO_OF_PAGES = i
            rsNew.Update
        Next i
        rsOriginal.MoveNext
    Loop
    
    rsOriginal.Close
    rsNew.Close
    Set rsOriginal = Nothing
    Set rsNew = Nothing
    Set db = Nothing
    
    MsgBox "拆分完成！"
End Sub

不过一般来说，用查询的方法会更高效简洁，VBA适合有额外复杂逻辑的情况。

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