excel用VBA删除空行和空列
发布时间：2022-12-12 05:22:54
在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()。
0
投稿猜你喜欢
最近有用户跟小编求助：win10微软商店可以打开，可以搜索，但是点击某一个应用就显示无法加载，还会提示错误代码0x80004003。这该怎么- 可能我们在编辑文档的时候，wps文字默认的字体并不是我们想要的，那么，我们可以对wps文字中的默认字体进行修改，对于新手来说还是有一定难度，
- 小编近日在使用QQ音乐听歌时，意外发现播放歌曲时出现了歌词不同步的情况，前一句的歌词往往唱完后才显示在屏幕上。针对这一情况，小编今天为大家带
- 很多用户在用Windows10系统的时候，会遇到内存使用突然爆满的问题，从而影响了整个系统的运行，那么针对这样子的现状应该怎么解决呢？小编特
- 如何利用fireworks快速调整图片大小？在压缩图片体积的同时还要保证质量，确保清晰度不受影响，有什么好方法呢？小编推荐使用firewor
- 数据模型中的表格可以有多个关系。如果您特意在已经相关的表格之间创建更多关系，或者导入已经在原始数据源中定义了多个关系的表格，可能会出现这种情
- 一些朋友发现自己使用Win10系统没有自动进行更新，打开Windows更新窗口后发现上面写着“你的组织已关闭自动更新”，这种情况下应该怎么办
- 最近很多小伙伴在安装 Office 的时候，大概率会遇到无法继续安装的情况，具体表现为提示某些应用或功能无法继续安装，让取消安装或者选择继续
- 说明SKEW 函数返回一分布的偏斜度。返回值为正数，表示正偏斜；返回值为负数，表示负偏斜。偏斜度表明分布相对于平均值的不对称程度。正偏斜度表
- Excel表格的数据想要做成扇形的饼状图，制作突出数据的扇形饼状图表，能够很好的突出数据。以下是小编为您带来的关于Excel制作突出数据的扇
- 右键刷新是大家经常使用到的一个操作，但是有用户反映在将电脑更新升级成win11之后出现了右键刷新延迟的问题，遇到这个问题该怎么解决呢？这里小
- QQ拼音输入法如何拆字输入法?只要认识该汉字的偏旁即可，分别用拼音串表示各部分的读音，QQ拼音可以智能组合，联想出该字。
- Windows XP系统经常能遇到这个问题您的计算机可能存在风险？我一般都是直接点X关闭了，但是这样计算机会存在危险，比如上网购物就会不安全
- edius8高清工程设置怎么选？edius8专为广播和后期制作环境而设计，拥有完善的基于文件工作流程，提供了实时、多轨道、多格式混编、合成、
- 首先进行常规的卸载软件的步骤，在电脑中打开程序，进入所有程序。找到指定要删除的软件，鼠标选中，右键点击“卸载”，进入卸载页面。根据页面卸载步
- 方法1：我们可以直接在PDF文件内删除你不想要的页面（空白页面），这样十分简单便捷。无论你是用什么版本的PDF他们都有一项功能叫“删除页面”
- win10无法安装sublime软件总是阻止运行该怎么办？win10系统中安装sublime软件的时候总是提示已经阻止此发布者在你的计算机上
- photoshop是一款非常专业的图片处理软件。在里面可以对人物的唇型唇色进行处理，不过有部分用户不知道怎么操作，接下来我们一起往下看看Ph
- w10无法打开共享电脑的文件夹怎么办？通过网络来共享文件夹进行分享文档软件，这样可以提高办公效率，但是有的用户却无法打开共享电脑中的文件夹，
- 在EXCEL中，我们常常使用vlookup函数查找相同的数据，可以跨工作表查找，同时还能跨工作并查找，非常方便!仍然，问题出在vlookup
