Excel中用VBA实现删除空行和空列
发布时间:2022-04-05 11:54:57
在exce中删除空行和空列的方法有很多,相对而言删除空行较为简单,只需进行筛选,将空白行筛选出来,删除即可,但要删除空列比较困难。因为你不能按列进行筛选删除。Excel中没有这
个功能。当然你可以用另外一种方法,就是按列进行排序将空白列排序在一起,然后删除,但这种方法面临着列的顺序被打乱的问题,吃力不讨好。本文将利用Excel中强大VBA功能来完成删
除空白行和列的方法。
步骤一、打开excel,按ALT+F11组合建,调出VBA程序窗口
步骤二、在插入菜单中,选择模块,插入一个模块
步骤三、在新建模块中的代码窗口将以下代码复制进去
‘删除空行
Sub DeleteEmptyRows()
Dim LastRow As Long, r As Long
LastRow = ActiveSheet.UsedRange.Rows.Count
LastRow = LastRow + ActiveSheet.UsedRange.Row -1
For r = LastRow To 1 Step -1
If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
’删除空列
Sub DeleteEmptyColumns()
Dim LastColumn As Long, c As Long
LastColumn = ActiveSheet.UsedRange.Columns.Count
LastColumn = LastColumn + ActiveSheet.UsedRange.Column
For c = LastColumn To 1 Step -1
If WorksheetFunction.CountA(Columns(c)) = 0 Then Columns(c).Delete
Next c
End Sub
完成后关闭VBA窗口,选择保存,并保存Excel文件。
步骤四、保持步骤三中的excel文件处于打开状态,打开需要处理excel文件,执行上述两个宏即可。
用VBA删除空行和空列
作者:未知 文章来源:未知 点击数:3063 更新时间:2009-1-13 16:32:10
在Excel中删除空行和空列的方法有很多,下面的方法是用VBA代码来删除工作表指定区域中的空行和空列:
Option Explicit
Sub Delete_Empty_Rows()
Dim rnArea As Range
Dim lnLastRow As Long, i As Long, j As Long
Application.ScreenUpdating = False
lnLastRow = Selection.Rows.Count
Set rnArea = Selection
j = 0
For i = lnLastRow To 1 Step -1
If Application.CountA(rnArea.Rows(i)) = 0 Then
rnArea.Rows(i).Delete
j = j + 1
End If
Next i
rnArea.Resize(lnLastRow - j).Select
Application.ScreenUpdating = True
End Sub
Sub Delete_Empty_Columns()
Dim lnLastColumn As Long, i As Long, j As Long
Dim rnArea As Range
Application.ScreenUpdating = False
lnLastColumn = Selection.Columns.Count
Set rnArea = Selection
j = 0
For i = lnLastColumn To 1 Step -1
If Application.CountA(rnArea.Columns(i)) = 0 Then
rnArea.Columns(i).Delete
j = j + 1
End If
Next i
rnArea.Resize(, lnLastColumn - j).Select
Application.ScreenUpdating = False
End Sub
在运行代码前,先选择需要删除空行和空列的区域。如果要删除空行,则运行Delete_Empty_Rows(),指定区域中的空行将被删除。注意所谓空行是在指定区域中的,如果在指定区域内是
空行,而在指定区域外不是空行,那么这些空行还是将会被删除。删除空列则运行Delete_Empty_Columns()。
猜你喜欢
- 金山wps轻办公怎么卸载 wps轻办公卸载后果什么是金山wps轻办公?轻办公用于实现多人、多平台、多文档协作的办公体验!轻办公软件直接对编辑
- 【有用!20个Word文字处理技巧】一起长知识啦有了这条微博,word处理不用再求人啦!(央视新闻)找到了适合自己的工作声明:转载此文是出于
- Office提示“无法验证此应用程序的许可证”时怎么处理?出现该提示和系统中的一些服务有关联,因为其正巧被用户禁用启动了,需要用户将TA启用
- 在安装升级了win10操作系统后,我们的电脑上的一些小伙伴在日常使用电脑时可能会遇到提示sgtool.exe系统出错的情况。对这类问题小编认
- 当我们重新加载win10操作系统时,我们发现在进入磁盘分区步骤时,系统提示我们无法创建新分区或找到现有分区。在这种情况下,小编认为可以尝试重
- 一般情况下,wps开始工具栏都会直接显示在文档上的,若是隐藏了,显示的方法如下:1、在打开的wps界面的右上角,可以看到一个倒立V的图标,点
- 有时候excel表格数据过多,我们需要拉动下滑查看数据,但是想要数据表格固定,方便查看数据,那么word2010如何冻结工作表的表头?下面小
- Word技巧1、档里面的空行如何才能快速将Word里面的空行删除呢?只需将要按住快捷键Ctrl+H打开查询与替换,在查询里面添加两个段落标记
- 有时我们在编辑Word文档的时候,会因为一些突发事情而不能及时保存,有什么方法能够找回这些文件呢?下面就跟小编一起来看看吧。word找回未保
- Ping是一个非常好用的网络指令,在遇到网络卡顿或者断网的情况下,网管通常第一句话就是让你ping一下。使用它可以让你快速检测电脑网络是否正
- Word2016怎么使用后台打印功能打印文件?Word2016中有需要打印的文件,但是打印的时候就没办法使用word编辑文档了,这时候我们就
- 这篇文章跟大家分享如何为Word中不同的表格统一应用相同的表格样式。案例一如果文档中的表格比较少,比如像下图这样只有2个,可以按住ctrl键
- Word文档上方的水平标尺上有四个缩进滑块,可以调整文档中段落文字的位置,具体为:首行缩进滑块、悬挂缩进滑块、左缩进滑块、右缩进滑块。在未调
- Excel公式与函数的同与不同首先要搞清楚Excel公式和函数这两个概念。什么是公式?就是用加减乘除等运算符号,把一些数值、文本、函数等组合
- Excel2010数据图表的创建方法详细操作分享。在使用Excel软件的时候,如果你的数据都是各种的数字,那么数据量比较多的时候,难免会给人
- Computer Browser服务是一个能维护计算机更新列表的服务,如果Computer Browser服务停止,那么列表就不会被更新或维
- 方法一打开一个示例的文档,准备将第二段(图中红框)快速移动,变成第四段(图中红色箭头所指)将鼠标光标定位在第二段的任意位置,例如下图中红色箭
- 论文格式就是指进行论文写作时的样式要求,以及写作标准。直观地说,论文格式就是论文达到可公之于众的标准样式和内容要求。论文常用来进行科学研究和
- ①启动Word2007,输入文字,然后单击开始选项卡下段落标签里面的中文版式按钮。 ②在下拉列表中选择合并字符。
- word2013怎么调大字符间距?一、选中你要修改的文章内容,之后单击下图所示的红框箭头位置; word2013二