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
投稿猜你喜欢
有时候使用Word2003软件的朋友，为了重要资料的安全性，有的朋友就会给文档加密。但是文件添加密码多了，有时候也会忘记一些文件的密码。那么- excel图表分为独立图表和什么？excel图表分为独立图表和嵌入式图表。图表在工作表中有两种存在方式：嵌入式图表与工作表的数据在一起，或者
- excel最大值函数怎么用？Excel中的最大值函数max，可能都觉得很简单，没有什么学习的，其实不然，max函数有多种用法，可以帮助我们解
- 在Excel中经常录入好数据以后就进行打印，有些时候不是所有的数据都需要打印，因此我们需要设置一下打印的范围，限制好数据打印的区域。下面是小
- Excel2013如何查看当前表格的行数列数?很多朋友并不是很清楚，所以今天小班就为大家详细介绍一下，不会的朋友可以参考本文，希望能对大家有
- 相信亲们在使用word文档的时候，不管是哪个版本，都会碰到输入法切换不到中文的那种情况吧。今天小编简单给大家介绍下各个版本的word文档如何
- excel表格中怎么连续使用格式刷？excel中格式刷作用是复制文字格式、段落格式等任何格式。具体该怎么使用呢？下面我们就来看看excel连
- Excel中难免会有些空白行，具体该如何删除这些空白行呢?下面是由小编分享的excel2003删除空白行的教程，以供大家阅读和学习。exce
- word文档至今推出过几个版本，有2010、2012、2003、2007等几个版本，而Word2007版也是大家比较经常使用的一款。在wor
- 在写论文、报告或标书时，为了使数据更加直观，文档中会使用大量图片、表格或图表等元素。如果图片、表格或图表太多，为了对它们进行区分，我们会在每
- word文字怎么加拼音？办公技巧，让日常工作更轻松，今天分享的是常用的Word小技巧，日常办公轻松应对。1、文字上方添加拼音选中文字后，点击
- 有的用户发现自己的win10系统并没有显示出文件后缀名，这让他们要获取文件类型变得困难。没有需要知道文件格式还好，显得文件名比较简洁。但要用
- Word怎么插入CAD图形？在word论文的时候经常需要插入一些CAD画出来的施工图、零件图以及坐标图等等。该怎么插入呢？下面我们来看看Wo
- 打开要编辑的word文档，点击“布局”选项。如图所示效果。在“布局”选项里找到“分栏”按钮，如图所示效果。在“分栏”按钮里面，点击 &quo
- Excel中经常需要使用到表格进行分类数据，而表格时常需要添加一些边框线进行修饰，表格边框线具体该如何添加呢?下面是小编带来的关于Excel
- 函数说明EDATE函数的主要作用是返回代表指定日期 (start_date) 之前或之后用于指示月份数的日期的序列号。使用函数 EDATE
- 如何删除word文档中的属性和个人信息1、首先查找下文档在电脑磁盘的位置，找到后在WORD文档上单击鼠标右键，选择属性。 2、弹出 属性 对
- 当需要在Excel中对数据进行分类计算时，除了使用数据透视表，还可以使用分类汇总命令。下面让小编为你带来怎样在Excel中对数据进行分类汇总
- 相信有不少用户目前都在使用Word，一般来说我们在编辑文档的时候文字方向都是默认固定一个方向的，那么我们如果想要改变文字方向该怎么操作呢？其
- 在excel录入数据中，很时候是不允许录入重复值的，那么，如何才能对整个表格做出限制输入呢?下面随小编一起看看吧。Excel表格限制重复值输
