刚有个网友咨询，对于下列这样的表格

Sub 生成()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim t, l1, l2, l
    t = DCount("*", "大楼登记表")
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("select * from 大楼登记表")
    arr = rs.GetRows(t)
    Set rs = db.OpenRecordset("登记表")
    
    For i = 0 To t - 1
        If InStr(arr(2, i), "-") > 0 Then
            l1 = Split(arr(2, i), "-")(0): l2 = Split(arr(2, i), "-")(1)
        Else
            l1 = arr(2, i): l2 = arr(2, i)
        End If
        For l = l1 To l2 Step 1
            rs.AddNew
            rs!大厦 = arr(1, i)
            rs!当前层数 = l
            rs!性质 = arr(3, i)
            rs.Update
        Next
    Next
    rs.Close
    Set db = Nothing
End Sub

Access 案例如下：

测试access