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

时间:2024-03-17 19:11:43

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

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

 

 

2.

Sub DeleteEmpty()

Call DeleteEmptyRow

Call DeleteEmptyColmn

End Sub

Sub DeleteEmptyRow()

\'删除第2行到第95行之间C列后没有值的空行

Dim i As Integer

For i = 94 To 12 Step -1  

  If Cells(i, 3) = "" Then   

    Sheets("sheet1").Rows(i).Delete  

  End If   

Next i End Sub

\'删除第6行没有值的空列

Sub DeleteEmptyColmn()

Dim i As Integer

For i = 30 To 4 Step -1  

  If Cells(6, i) = "" Then

   Sheets("sheet1").Columns(i).Delete  

  End If   

Next i

End Sub

谢谢分享。其实用定位删除较快,如删除第2行到第95行之间C列没有值的空行

Range("C2:C94").SpecialCells(4).EntireRow.Delete

posted on 2014-11-14 21:10  hbm  阅读(5622)  评论(0编辑  收藏  举报