本文作者:office教程网

Excel中用VBA实现删除空行和空列

office教程网 2023-11-29 11:28:38
后台-系统设置-扩展变量-手机广告位-内容正文顶部
摘要: 在exce中删除空行和空列的方法有很多,相对而言删除空行较为简单,只需进行筛选,将空白行筛选出来,删除即可,但要删除空列比较困难。因为你不能按列进行筛选...

在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代码来删除工作表指定区域中的空行和空列:

为Excel添加背景图片,让工作不再无趣

为Excel添加背景图片,让工作不再无趣 用“格式”菜单上的“背景”命令添加到工作表中的背景图案不会被打印出来,然而,用“插入”菜单上的“图片”命令添加到工作表中的图案,以及用“格式”菜单上的“单元格”命令添加到工作表中的单元格背景图案或阴影,都会被打印出来。 补充回答: 如果非要打印背景,可以用EXCEL的摄影功能,把需要打印的单元格区域复制为链接图片,粘贴到一张空白工作表上,右键单击链接图片,在快捷菜单中选择 “设置图片格式”命令,在“设置图片格式”对话框中选择“颜色与线条”选项卡,单击“填充”→“颜

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()。

Excel 2007中修改回车键切换单元格方向

Excel 2007中修改回车键切换单元格方向 我们用Excel 2007编辑表格的情况下,输入内容然后按回车键即可编辑下一段单元格中的内容,而有的时候编辑表格要从左到右,默认的是从上到下,接下来教大家改变回车键移动方向。 ①打开“Excel2007”点击“Office按钮”,弹出对话框再选择“Excel选项”。 ②来到“Excel选项”设置界面。 推荐:点击免费下载最新版WPS办公软件 》》查看更多 ③点击“高级”在右边的“编辑选项”中“按Enter键后移动所选内容”方向,选择在实际当中要用的方向,最后

后台-系统设置-扩展变量-手机广告位-内容正文底部
未经允许不得转载:

作者:office教程网,原文地址:Excel中用VBA实现删除空行和空列发布于2023-11-29 11:28:38
转载或复制请以超链接形式并注明出处 演示站

分享到:

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏

留言与评论(共有 0 条评论)
   
验证码: