请各位老师看看EXCEL录制的宏代码，在access的格式下，如何编写代码，谢谢

请各位老师看看EXCEL录制的宏代码，在access的格式下，如何编写代码，谢谢

Sub Macro1()
'
' Macro1 Macro
'
'
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
k = 2
For i = 1 To Sheet2.Range("b1") - 1
    If Range("d" & k) <> 1 Then
        'l = Range("d" & k) - 1
        For j = 1 To (Range("d" & k) - 1)
            Rows(k & ":" & k).Select
            Selection.Copy
Selection.Insert Shift:=xlDown
        Next j
        For l = 1 To (Range("d" & k) - 1)
            Range("c" & (k + l)) = Range("c" & k) + l
        Next l
       
        k = k + Range("d" & k)
    Else
        k = k + 1
    End If
   
Next i
'Range("e1").Value = i
   

End Sub

结果是：

Name	Age	CA	Number
air	20	1	3
air	20	2	3
air	20	3	3
xia	22	4	2
xia	22	5	2
wang	19	6	1
ma	18	7	2
ma	18	8	2

看看能否将附件中的ACCESS添加个命令按钮，添加一些代码来生成一个临时表，结果和EXCEL的结果一样，谢谢�������ش˸���