在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删除空行和空列

在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)

相关推荐

  • 新版Excel表格批量插入空行和空列

    在如理Excel表格文件中有时需要在中间批量出入空行和空列,或添加信息或为了美观,本文讲解高效如何在excel中插入空行和空列. 操作方法 01 首先选择你的工作表,在表格后面分别填写内容,例如&qu ...

  • excel中怎么使用Vba批量删除指定文件夹下的所有文件?

    今天要和大家分享的是:Vba设置批量删除指定文件夹下的所有文件? 1.首先新建一个excel文件并双击打开,打开后,按快捷键F12进行另存为,注意另存的格式要选择启用宏的工作簿,如下图所示: 2.接着 ...

  • Excel表格怎么用VBA来实现删除重复值的操作

    今天给大家介绍一下Excel表格怎么用VBA来实现删除重复值的操作步骤.1. 首先双击打开Excel表格,我们可以看到,A列中有一些重复值,下面我们就来操作删除重复项.2. 首先选择工具栏上的&quo ...

  • Excel中用身份证号算生日:MID函数的用法与技巧

    Excel中用身份证号算生日:MID函数的用法与技巧,MID函数的作用是返回文本字符串中从指定位置开始的特定数目的字符(该数目由用户指定)。 语法 MID(text,start_num,num_cha ...

  • Excel中用函数向导输入函数动画教程

    《Excel2003入门动画教程51、Excel中用函数向导输入函数》。 演示动画 操作步骤 如果大家对Excel函数不是非常熟悉,建议大家采用Excel函数向导来输入函数计算式。 选中相应的单元格, ...

  • Excel怎么删除空行

    在Excel中,为了美观,想将工作表的空行删除.可以根据以下方式,把表中的空行删除. 1.选中要删除空行工作表的任意单元格,然后选择"插入"→"列",这时在选中 ...

  • 在excel表格中如何增加或删除行和列?

    方法/步骤 1.打开电子表格,建好自己需要的表格后,发现少了行了,把鼠标在建好的表格内的任何一个单元格单击一下,最好是在最后一行单击,然后单击一下右键,找到插入,单击一下. 2.找到整行,在整行前面的 ...

  • 怎样使用VBA批量删除word中空行

    在网上复制文本时,很多不必要的空格空行也跟着材料一起被复制粘贴保存了下来,版面就不怎么好看了.而且,材料多时,几十上百页的,要是手动删除,那工程量可够浩大的,有没有什么办法快速批量删除呢?很多人都会使 ...

  • excel如何快速删除隐藏的行和列 批量删除隐藏行和列的方法

    excel是我们常用的办公软件,在绘制表格的时候,会有许多用不到的行和列,那么excel如何快速删除隐藏的行和列?下面小编带来批量删除隐藏行和列的方法,希望对大家有所帮助. 批量删除隐藏行和列的方法: ...