Excel vba 实例（1） - 批量制作工资表头

前面分享了关于VBA的文章：

分享 | VBA，十倍提升你的Excel工作效率，解放你的双手！

后台有伙伴说，文章里面没有说具体的方法；也有的伙伴说代码能不能发一下。

是的，这篇文章开始，就慢慢的来分享一下Excel Vba的一些常用的方法和实例。

今天先把上篇文章里的例子说完，永恒君现在用的是Excel 2007。

“开发工具” - “Visual Basic”，打开VBE编辑窗口，选择当前的sheet，然后粘贴下列代码：

---

Sub gz()

For i = 10 To 7 Step -1

Rows(i).Select '选定行

Selection.Insert Shift:=xlDown '向下插入空行

Sheets(1).Range("A5").EntireRow.Copy Sheets(1).Range("A" & i) '在空行中粘贴标题

Next

End Sub

Sub cz()

    For i = 15 To 7 Step -1    

        If Cells(i, 1) = "姓名" Then        

            Cells(i, 1).EntireRow.Delete '整行删除            

        End If

    Next

End Sub

---

保存好后退出。

然后选择“开发工具” - “插入” - “按钮”，新建“制作工资条”、“重置”两个按钮。

同时分别指定宏分别为Sheet1.gz、Sheet1.cz（就是和刚刚上面的代码连接起来）。

然后就能出现下面的效果了。

上面“制作工资表头”示例文件链接：

链接: https://pan.baidu.com/s/1D9iYRZnsfCCHOoal4YhNyg 密码: 56hx

Excel VBA功能很强大，但是要熟练的运用起来还是有一定的难度，好在永恒君帮大家搜集了几套关于VBA的视频教程，非常的实用。

需要的话，后台回复“VBA”获取吧~~

欢迎交流！