導讀原創作者：盧子轉自：EXCEL不加班真的沒騙你，點起來超爽，做完了2個按鈕，我都點了幾十次。點一下工資表就變成工資條。再點一下，工資條就變成工資表。要用VB....

原創作者： 盧子 轉自：EXCEL不加班

真的沒騙你，點起來超爽，做完了2個按鈕，我都點了幾十次。

點一下工資表就變成工資條。

再點一下，工資條就變成工資表。

要用VBA實現這2個功能，真的很簡單，只要你懂得最基礎的復制粘貼，插入刪除等功能即可。

其實，VBA就是將你當初學基礎操作的過程，再重新來一遍而已。不要說什么不會英語，學不會之類，壓根兒就跟英語無關，我也不會英語。

工資條，其實就是將第一行的標題復制，插入到3、5、7等奇數行，對吧。

Step 01 錄制一個宏，將第一行的標題復制，插入到第3行。

Step 02 點VB進入后臺，再點模塊，就可以看到剛剛錄制的宏。

Step 03 現在已經實現了在第3行插入標題，下面要實現在第5行插入標題。將A3改成A5，點綠色運行按鈕。

接著是7、9、11……如果一次次改，那就體現不了VBA的優越性了，前面已經提過，可以借助循環語句。

Sub 工資條()

For i = 1 To 18

Rows("1:1").Select

Selection.Copy

Range("A" & i * 2 1).Select

Selection.Insert Shift:=xlDown

Next

End Sub

現在是19個人，而第一個人有標題，也就是需要操作18次。i * 2 1就是獲取數字3、5、7……

寫代碼的時候，養成一個好習慣，就是定義變量，最終代碼就出來了。

Sub 工資條()

Dim i As Integer

For i = 1 To 18

Rows("1:1").Select

Selection.Copy

Range("A" & i * 2 1).Select

Selection.Insert Shift:=xlDown

Next

End Sub

Step 04 將原來手工插入的標題刪除掉，運行代碼，即可生成工資條。

不難吧。

現在如何將工資條復原成工資表，也就是將3、5、7……行刪除掉。

同理，錄制宏，改代碼。

Step 01 錄制一個宏，選擇A3，刪除整行。

Step 02 點VB進入后臺，再點模塊，就可以看到剛剛錄制的宏。

Step 03 有了前面的基礎，現在修改代碼就變得簡單，將工資條修改的部分全部照搬過來。

剛剛錄制宏的時候是從上刪除行，刪除后 ，你會發現標題行錯位了，現在并不是3、5、7……行。

記住，刪除行跟插入行有所不同，插入行是從上面往下插入，而刪除行要從下面往上刪除。

現在是從18倒數到1，Step -1就是步長-1。

Sub 工資表()

Dim i As Integer

For i = 18 To 1 Step -1

Range("A" & i * 2 1).Select

Selection.EntireRow.Delete

Next

End Sub

Step 04 將原來手工刪除的標題恢復，運行代碼，即可生成工資表。

最后，插入按鈕來執行代碼，會看起來更高大上。

不要老是害怕學不會，只要你知道循環語句，會錄制宏就可以解決掉很多問題了。