excel删除空行空列.docx

《excel删除空行空列.docx》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、Excel中用VBA实现删除空行和空列  2012-04-1017:13:57

2、  分类： VB和VBA知识

3、举报

4、字号 订阅Excel中用VBA实现删除空行和空列在exce中删除空行和空列的方法有很多，相对而言删除空行较为简单，只需进行筛选，将空白行筛选出来，删除即可，但要删除空列比较困难。因为你不能按列进行筛选删除。Excel中没有这个功能。当然你可以用另外一种方法，就是按列进行排序将空白列排序在一起，然后删除，但这种方法面临着列的顺序被打乱的问题，吃力不讨好。本文将利用Excel中强大VBA功能来完成删除空白行和列的方法。步骤一、打开excel，按AL

5、T+F11组合建，调出VBA程序窗口步骤二、在插入菜单中，选择模块，插入一个模块步骤三、在新建模块中的代码窗口将以下代码复制进去‘删除空行SubDeleteEmptyRows()DimLastRowAsLong,rAsLongLastRow=ActiveSheet.UsedRange.Rows.CountLastRow=LastRow+ActiveSheet.UsedRange.Row-1Forr=LastRowTo1Step-1IfWorksheetFunction.CountA(Rows(r))=0ThenRows(r).DeleteNextrEndSu

6、b’删除空列SubDeleteEmptyColumns()DimLastColumnAsLong,cAsLongLastColumn=ActiveSheet.UsedRange.Columns.CountLastColumn=LastColumn+ActiveSheet.UsedRange.ColumnForc=LastColumnTo1Step-1IfWorksheetFunction.CountA(Columns(c))=0ThenColumns(c).DeleteNextcEndSub完成后关闭VBA窗口，选择保存，并保存Excel文件。步骤四、保持步

7、骤三中的excel文件处于打开状态，打开需要处理excel文件，执行上述两个宏即可。用VBA删除空行和空列  作者：未知文章来源：未知点击数：3063更新时间：2009-1-1316:32:10            在Excel中删除空行和空列的方法有很多，下面的方法是用VBA代码来删除工作表指定区域中的空行和空列：OptionExplicit SubDelete_Empty_Rows()  DimrnAreaAsRange  DimlnLastRowAsLong,iAsLong,jAsLong   Application.ScreenUpdating=F

8、alse  lnLastRow=Selection.Rows.Count  SetrnArea=Selection   j=0   Fori=lnLastRowTo1Step-1     IfApplication.CountA(rnArea.Rows(i))=0Then        rnArea.Rows(i).Delete        j=j+1     EndIf  Nexti   rnArea.Resize(lnLastRow-j).Select   Application.ScreenUpdating=TrueEndSub SubDelete_

9、Empty_Columns()  DimlnLastColumnAsLong,iAsLong,jAsLong  DimrnAreaAsRange   Application.ScreenUpdating=False  lnLastColumn=Selection.Columns.Count  SetrnArea=Selection   j=0   Fori=lnLastColumnTo1Step-1     IfApplication.CountA(rnArea.Columns(i))=0Then        rnArea.Columns(i).Delet

10、e        j=j+1     EndIf  Nexti   rnArea.Resize(,lnLastColumn-j).Select   Application.ScreenUpdating=FalseEndSub   在运行代码前，先选择需要删除空行和空列的区域。如果要删除空行，则运行Delete_Empty_Rows()，指定区域中的空行将被删除。注意所谓空行是在指定区域中的，如果在指定区域内是空行，而在指定区域外不是空行，那么这些空行还是将会被删除。删除空列则运行Delete_Empty_Columns()。