為了活躍氣氛，在文末點亮「在看」+評論區留言，我會從中抽取3名粉絲，每人贈送一本《Excel效率手冊 早做完，不加班》。
VBA是Excel中最難的，也是最智能的功能。很多人對他又愛又恨，愛是因為一鍵就搞定工作，恨是因為太難了一大堆代碼看了頭痛。
其實，學VBA是有方法的，很多代碼都不是手寫的，而是通過錄製宏得到。今天，盧子帶你重新認識VBA。
1.生成12個工作表
普通操作的話，是直接點這個+，就生成了一個新工作表，連續點11次。
而用VBA的話，可以先通過錄製一個宏，生成一個錄製的宏過程，再通過適用循環方法，生成10個新表。
Step 01 點錄製宏，再新建一個工作表，停止錄製宏。
Step 02點工作表，右鍵查看代碼，在模塊中就可以看到剛剛錄製的宏代碼。
Sheets.Add After:=ActiveSheet
Step 03添加一個循環語句For Next，1 to 10，就是循環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的工作表，也需要添加循環語句，那些無關的代碼可以刪除，並不影響效果。
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運行代碼以後，就只剩下一個工作表。
當操作的宏比較多的時候，需要對宏進行重命名，要不然可能會忘了宏的作用。修改名字以後，這樣會更加清晰。
你在網上看到的模板，都是點一下按鈕就搞定，其實，我們自己也可以插入一個按鈕來執行代碼。
插入一個形狀。
指定宏
修改形狀的名稱，並運行代碼。
使用VBA要另存為啟用宏的工作簿。
最後再總結一下，VBA的步驟都基本一樣，先錄製宏，然後修改宏代碼，再插入一個形狀來運行代碼，並另存為啟用宏的工作簿。
如果你對VBA有興趣，後面還會繼續深入說明。
比如根據總表的內容生成工作表或者根據工作表生成目錄等等。
推薦：感受宏的魅力，發票跟進管理
上篇：神秘的D字頭函數，輕鬆搞定多條件求和，90%的人都沒用過
寫了好多年文章，發現絕大多數技巧、函數都寫過文章，而VBA、圖表、PQ方面目前文章相對比較少，後期可能偏這幾個新方向。
寫文章其實挺難的，寫太基礎了，老讀者已經會了不想看，寫太難了，新讀者又看不懂也不想看。
你呢，最想看什麼文章？
作者：盧子，清華暢銷書作者，《Excel效率手冊 早做完，不加班》系列叢書創始人，個人公眾號：Excel不加班（ID：Excelbujiaban）
VBA是Excel中最難的，也是最智能的功能。很多人對他又愛又恨，愛是因為一鍵就搞定工作，恨是因為太難了一大堆代碼看了頭痛。
其實，學VBA是有方法的，很多代碼都不是手寫的，而是通過錄製宏得到。今天，盧子帶你重新認識VBA。
1.生成12個工作表
普通操作的話，是直接點這個+，就生成了一個新工作表，連續點11次。
而用VBA的話，可以先通過錄製一個宏，生成一個錄製的宏過程，再通過適用循環方法，生成10個新表。
Step 01 點錄製宏，再新建一個工作表，停止錄製宏。
Step 02點工作表，右鍵查看代碼，在模塊中就可以看到剛剛錄製的宏代碼。
Sheets.Add After:=ActiveSheet
Step 03添加一個循環語句For Next，1 to 10，就是循環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的工作表，也需要添加循環語句，那些無關的代碼可以刪除，並不影響效果。
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運行代碼以後，就只剩下一個工作表。
當操作的宏比較多的時候，需要對宏進行重命名，要不然可能會忘了宏的作用。修改名字以後，這樣會更加清晰。
你在網上看到的模板，都是點一下按鈕就搞定，其實，我們自己也可以插入一個按鈕來執行代碼。
插入一個形狀。
指定宏
修改形狀的名稱，並運行代碼。
使用VBA要另存為啟用宏的工作簿。
最後再總結一下，VBA的步驟都基本一樣，先錄製宏，然後修改宏代碼，再插入一個形狀來運行代碼，並另存為啟用宏的工作簿。
如果你對VBA有興趣，後面還會繼續深入說明。
比如根據總表的內容生成工作表或者根據工作表生成目錄等等。
推薦：感受宏的魅力，發票跟進管理
上篇：神秘的D字頭函數，輕鬆搞定多條件求和，90%的人都沒用過
寫了好多年文章，發現絕大多數技巧、函數都寫過文章，而VBA、圖表、PQ方面目前文章相對比較少，後期可能偏這幾個新方向。
寫文章其實挺難的，寫太基礎了，老讀者已經會了不想看，寫太難了，新讀者又看不懂也不想看。
你呢，最想看什麼文章？
作者：盧子，清華暢銷書作者，《Excel效率手冊 早做完，不加班》系列叢書創始人，個人公眾號：Excel不加班（ID：Excelbujiaban）
收藏