您的位置: 首页 > EXCEL技巧 > ExcelVBA >

用VBA删除空行和空列

时间:2013-12-04 整理:docExcel.net

在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表格滑块怎么变大
回答:将不需要的空行空列删除 就可以了
另类方保护Excel工作表结构 问题:另类方保护Excel工作表结构
回答:...行等。方法是: 首先,选择要保护的工作表四周的某个空行空列,在其中输入数组公式: = 然后按Ctrl+Shift+Enter结束。 例如要保护的区域为A1:H14,可以先选择I1:I14,输入上述数组公式。 再选择A15:H15,然后输入数组公式。...
在excel中如何在每列插入相同的一列 问题:在excel中如何在每列插入相同的一列
回答:1、在最上面插入2空行2、在A1、B2均输入A(或其他字母数字都行)3、选A1~B2一同向右填充(右拉)4、选1~2行数据区域——Ctrl+G——定位条件——空值——确定5、菜单栏——插入——列(这就在每一列旁边插入1空列了)6、删除最...
删除Excel2013空行的几大绝招 问题:删除Excel2013空行的几大绝招
回答:对于Excel删除空行来说,方法很多,下面就来介绍三种比较实效的方法给大家。希望对大家有所帮助。 ①先来说第一种,鼠标选中需要进行删除的区域,然后按下键盘上的F5键。 ②打开定位对话框之后,单击定位条件按钮,...
用替换法删除Word2007中的空行 问题:用替换法删除Word2007中的空行
回答:...以选择替换的方式,全部替换掉,有的童鞋就纳闷了,那空行也能替换吗?如果一个个都手动删除多麻烦麻烦,不着急,这里就来跟大家分享一下如何用替换法一次性删除Word2007中的所有空行。 ①在“开始”菜单栏中找到...
如何删除word中的不连续的空行 word2013 问题:如何删除word中的不连续的空行 word2013
回答:1.点击,选,择-全选(,或按键盘Ctrl+A),选取整篇文章。再依次点击,插入-表格-文字本转换成表格-选择列数为2列。2.然后点击,布局-合并单元格,转换为文本,按确定,即达到无空行效果。
相关推荐: