工资条下方留出一行空格 VBA代码如下：
Sub 工资条示例()
'
' 工资条示例 宏
'

Dim I As Integer    '定义I为整数
For I = 1 To 24     'for 循环语句，I等于1到24的整数
    Range(Selection, Selection.End(xlToRight)).Select   'Range函数选择区域，进行选择
    Selection.Copy      '选择，复制
    ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select    '选择第三行
    Selection.Insert Shift:=xlDown      '向下插入粘贴的行
    ActiveCell.Rows("1:1").EntireRow.Select
    Application.CutCopyMode = False     '剪切板功能关闭
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove     '向下插入粘贴的行，复制远点为工作表格式从左或上
    ActiveCell.Offset(1, 0).Range("A1").Select      '激活单元格为A1
Next
End Sub