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”獲取吧~~

歡迎交流！