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

本文于2022/01/17重新编辑

前面分享了关于VBA的文章：分享 | VBA，十倍提升你的Excel工作效率，解放你的双手！

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

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

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

“开发工具” – “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

保存好后退出。

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