Excel vba 實例（9）- 批量插入、刪除表格中的空行
批量插入、刪除表格中的空行
日常工作中有時候需要插入大量的行做數據處理，或者是遇到導出的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」獲取吧~~
歡迎交流！
推薦閱讀：
※VBA新手的自學筆記
※VBA設計之多文件自動合併
※Word文檔空行類型和vba批量刪除空行的方法
※Excel的一些VBA操作代碼
※excel數據核對：3個公式讓你完成數據核對問題
TAG:VBA | MicrosoftExcel | 表格 |