宏的录制——制作工资表

以下是用宏制作工资表的代码

Sub 宏1()
'
' 宏1 宏
'
' 快捷键: Ctrl+p
'
    ActiveCell.Rows("1:1").EntireRow.Select
    Selection.Copy
    ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
    Selection.Insert Shift:=xlDown
End Sub

首先打开工资表，依次点击文件—选项—自定义功能区—开发工具，然后点击确定，接下来我们就可以录制宏了。

制作的工资条如下图所示