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”获取吧~~

欢迎交流！