批量插入、刪除表格中的空行
日常工作中有時候需要插入大量的行做數據處理，或者是遇到導出的excel數據表、收到的excel表格、收集的excel數據等出現大量的空白行，無效行，需要刪除。
直接先上代碼
Sub 插入()'一定要先選中一行
For x = 1 To 100 '100代表操作100次，可根據實際情況更改
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove '插入一行 並向下偏移
ActiveCell.Offset(2, 0).EntireRow.Select '活動單元格向下偏移兩行，然後再選中整行，偏移兩行是為了確保能夠每行都插入
Next x
End Sub
Sub 刪除()'首先選中一列
Selection.SpecialCells(xlCellTypeBlanks).Select '定位 空單元格
Selection.EntireRow.Delete '刪掉空行
End Sub
效果演示：
主要注意的幾點：
1.插入空行的時候要先選擇需要插入的位置行
2.刪除空行之前需要先選擇一列
3.可根據實際的數據情況，在更改需要的次數（上面例子為100次）
同樣的，永恆君直接把上面實例VBA的文件分享出來，需要的就直接使用吧。
wx公號內後臺回覆“空行”即可。
不少人對VBA代碼有牴觸心理，其實沒有那麼複雜，把他看成一個稍微複雜點的函數即可。
當然如果並不打算深入學習VBA，只是臨時使用下，那隻要會複製黏貼就好了！
至於怎麼用VBA代碼，可以參考之前的文章：
Excel vba 實例（1） - 批量製作工資表頭
Excel vba 實例（2） - 批量將工作表拆分為單獨文件
Excel vba 實例（3） - 多個工作簿批量合併
Excel vba 實例（4） - 根據已有名稱，批量新建表格
Excel vba 實例（5） - 快速合併n多個相同值的單元格
Excel vba 實例（6） - 一鍵彙總多個sheet數據到總表
Excel vba 實例（7）-一鍵批量打印工作簿
Excel vba 實例（8）- 利用正則表達式進行定向提取
Excel VBA功能很強大，但是要熟練的運用起來還是有一定的難度，好在永恆君幫大家蒐集了幾套關於VBA的視頻教程，非常的實用。
需要的話，wx後臺回覆“VBA”獲取吧~~
歡迎交流！
閱讀更多 永恆君的百寶箱 的文章
