快速删除execl中空白行或者列

1、打开需要处理的execl文件。例如下记文件，打开后由空白的行以及列。本次需要通过使用VBA的方法快速的删除这些空白的行列。

2、打开VBA编辑界面，可以通过打开开发工具，最左边就是VBA的程序入口。

也可以通过快捷键ALT+F11，进入VBA。

3、进入VBA界面后，点击插入，模块。就会出现一个空白界面。

4、在空白界面，复制下记程序并粘贴。点击保存。

'删除空行

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

5、保存之后，点击之前将要处理的表格中，点击宏可以弹出一个界面，尾缀为rows的是执行删除空白行，另外一个是执行删除空白列。点击执行即可。

6、执行后点击保存EXECL即可完成。尤其是处理大数据的表格的时候可以省去很多的时间。