day1 工资条的制作

1、for要与next连用
　　if的用法
　　if **** then
　　elseif *****
　　else*****
　　endif

2、通过简单的录制宏与适当的改写完成工资条的制作
Sub 工资条()
'
' 宏1 宏
'复制一行，选择下一行的第一个单元格，进行粘贴。
'同时根据第一个单元格判断是否为空，若为空则停止

'每个两个插入复制的一行
Dim i As Integer
For i = 1 To 1000 Step 2
    If Range("a" & i) = "" Then
    Exit For
    End If
    
    Rows("1:1").Select
    Selection.Copy
    Range("A" & i).Select
    Selection.Insert Shift:=xlDown
Next

End Sub