批量插入、删除表格中的空行
日常工作中有时候需要插入大量的行做数据处理,或者是遇到导出的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」获取吧~~
欢迎交流!