微信公众号:yhjbox(永恒君的百宝箱),获取最新文章、资源。

Excel vba 实例(9)- 批量插入、删除表格中的空行

Excel VBA 实例 永恒君 1450℃ 0评论

批量插入、删除表格中的空行

日常工作中有时候需要插入大量的行做数据处理,或者是遇到导出的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的文件分享出来,需要的就直接使用吧。


后台回复“空行”即可。




不少人对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的视频教程,非常的实用。


需要的话,后台回复“VBA”获取吧~~

欢迎交流!

微信公众号:永恒君的百宝箱
个人博客:www.yhjbox.com

转载请注明:永恒君的百宝箱 » Excel vba 实例(9)- 批量插入、删除表格中的空行

喜欢 (0)
发表我的评论
取消评论

*

code

表情