前段時間給大家寫過“如何使用Excel的定位功能快速制作工資條”和“如何制作雙行成績單”這樣的經驗，使用了兩種不同的方法。下面再給大家介紹一種使用VBA宏代碼制作的方法（以制作工資條為例）。

1、例如有如下圖所示的工資表。

2、在工資表標題行上方插入一空行（如下圖所示）。

3、選中頂部第一行空白區域（A1:G1)，設置邊框為上下框線（如下圖所示）。

4、單擊菜單欄“工具”—“宏”—“Visual Basic編輯器”或直接按下Alt+F11快捷鍵打開VBA編輯窗口。

5、打開的VBA窗口如下圖所示。

6、單擊菜單欄“插入”—“模塊”。

7、打開模塊，并在模塊中輸入下列代碼：

1. Sub 工資條()      
2.  For i = 3 To 48 Step 3      
3.    Range("A1:G2").Copy      
4.    Rows(i).Select      
5.    Selection.Insert Shift:=xlDown      
6.    Application.CutCopyMode = False      
7.  Next      
8. End Sub  

備注：公式可以根據實際情況來修改哦。

8、保存后，可以單擊“運行子過程”按鈕，就會在每個工資行上添加上標題行。

9、現在效果如下圖所示。

10、刪除掉前三行，最后的效果如下所示。

相關推薦：

excel表格怎么設置自動計算工資?

excel如何制作工資條？超詳細的工資條排序法教程