以下是用宏制作工资表的代码
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
首先打开工资表,依次点击文件—选项—自定义功能区—开发工具,然后点击确定,接下来我们就可以录制宏了。
制作的工资条如下图所示
![](https://i-blog.csdnimg.cn/blog_migrate/f6a5d6018fc8b6f036534a0e7ee530e4.png)