表格删除空行vba

发布时间: 2023-11-27 17:24 阅读: 文章来源:1MUMB102254PS

我有一个产品数据库,数据有1300多行,其中有一列数据不全,里面有一些没有数值,就是说有一些空的单元格。

现在我们用这一列数据,来演示一下如何用VBA来删除空行。

第一步:点击Excel菜单中的“插入”==》随便找个图标插入。

第二步:输入文字,便于识别不同命令。

第三步:选中图标,鼠标右击图标==》选择“指定宏”。

第四步:点击“新建”。

第五步:就进入VBA编辑器了,在红框中复制以下代码,每一句的作用都有具体注释。

第六步:保存,关闭VBA编辑器。

第七步:回到工作表Sheet1中,点击图标,程序就会自动运行,执行删除空行命令。一秒完成!

所以VBA比较适合重复性的工作,可以大大减轻我们的工作量。

以上,是一种最简单的进入VBA编辑的方法。

其它进入VBA编辑器方法如下:

1. Excel菜单中点击“开发工具”==》Visual Basic。

2. 鼠标放在左下角工作表名上,如Sheet1,Sheet2..., 右击,出现菜单后选择“查看代码”

3. 使用键盘:Alt+F11

第五步需要复制的代码如下:

Dim i

Application.DisplayAlerts = True ‘关闭刷新,加快速度

For i=ActiveSheet.UsedRange.Rows.Count To 2 Step -1 ‘从有数据的最后一行开始,向上删除空行

If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then ‘判断为空行

Rows(i).delete ‘执行删除

End If

NextApplication.DisplayAlerts = False ‘打开刷新过程

具体过程的屏幕图片如下:

原始数据有很多单元格是空的,下面我们要删除这些空格

找个图标

编辑图标,给命令起个名字

给图标指定宏

新建宏

进入VBA编辑器

复制粘贴,VBA本来就是搭积木

空行全部都被删除了

•••展开全文
相关文章