原創(chuàng)作者： 盧子 轉自：Excel不加班

VBA是Excel中最難的，也是最智能的功能。很多人對他又愛又恨，愛是因為一鍵就搞定工作，恨是因為太難了一大堆代碼看了頭痛。

其實，學VBA是有方法的，很多代碼都不是手寫的，而是通過錄制宏得到。今天，盧子帶你重新認識VBA。

1.生成12個工作表

普通操作的話，是直接點這個 ，就生成了一個新工作表，連續(xù)點11次。

而用VBA的話，可以先通過錄制一個宏，生成一個錄制的宏過程，再通過適用循環(huán)方法，生成10個新表。

Step 01 點錄制宏，再新建一個工作表，停止錄制宏。

Step 02 點工作表，右鍵查看代碼，在模塊中就可以看到剛剛錄制的宏代碼。

Sheets.Add After:=ActiveSheet

Step 03 添加一個循環(huán)語句For Next，1 to 10，就是循環(huán)10次，前面有2個工作表再加10次就是12個工作表。

Sub 宏4()

For i = 1 To 10

Sheets.Add After:=ActiveSheet

Next

End Sub

Step 04 點綠色的運行按鈕，這樣瞬間就搞定了。

2.刪除工作表，只保留1個

Step 01 同樣道理，錄制一個刪除工作表的宏。

Step 02 點工作表，右鍵查看代碼，在模塊中就可以看到剛剛錄制的宏代碼。

Step 03 現在還需要刪除2到11的工作表，也需要添加循環(huán)語句，那些無關的代碼可以刪除，并不影響效果。

Sub 宏5()

For i = 2 To 11

ActiveWindow.SelectedSheets.Delete

Next

End Sub

這樣本來就可以，不過還有一個問題，就是在刪除工作表的時候會彈出一個警告對話框。用技巧的話只能忍受，但用VBA可以忽略掉警告對話框，可以再增加一個語句。

Sub 宏5()

Application.DisplayAlerts = False '忽略運行過程中出現的警告

For i = 2 To 11

ActiveWindow.SelectedSheets.Delete

Next

End Sub

Step 04 運行代碼以后，就只剩下一個工作表。

當操作的宏比較多的時候，需要對宏進行重命名，要不然可能會忘了宏的作用。修改名字以后，這樣會更加清晰。

你在網上看到的模板，都是點一下按鈕就搞定，其實，我們自己也可以插入一個按鈕來執(zhí)行代碼。

插入一個形狀。

指定宏

修改形狀的名稱，并運行代碼。

使用VBA要另存為啟用宏的工作簿。

最后再總結一下，VBA的步驟都基本一樣，先錄制宏，然后修改宏代碼，再插入一個形狀來運行代碼，并另存為啟用宏的工作簿。

如果你對VBA有興趣，后面還會繼續(xù)深入說明。

比如根據總表的內容生成工作表或者根據工作表生成目錄等等。

專欄

7天Excel實戰(zhàn)速成

作者：考呀呀Excel技巧

69幣

1.6萬人已購

查看