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

假设要删除如下图中的空白行或空白列:

文件-》选项-》自定义功能区-》主选项卡-》开发工具

插入按钮

表单控件或者ActiveX控件都可以。

先以表单控件介绍:

Alt+F11 打开vb宏编辑器,插入模块,并输入如下代码:

'删除空行
Sub DeleteEmptyRows()
Dim LastRow As Long, r As Long
LastRow = ActiveSheet.UsedRange.Rows.Count
LastRow = LastRow + ActiveSheet.UsedRange.Row - For r = LastRow To Step -
If WorksheetFunction.CountA(Rows(r)) = 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 Step -
If WorksheetFunction.CountA(Columns(c)) = Then Columns(c).Delete
Next c End Sub

关闭编辑器后,在界面拖画一个按钮,在弹出的窗口中选中DeleteEmptyColumns(即刚才插入的删除空列)函数方法。

右键刚才拖出的按钮,右键 编辑文字 修改为 删除空列

之后在非"设计模式"下,点击测试

同样的,添加 删除空行按钮

保存时,会弹出警告:

因此需要另存为"启用宏的工作簿"。

然后保存。

再以ActiveX控件为例:

拖出按钮后,打开设计模式

在设计模式下,右键修改button的名称,即Caption属性

双击打开消息框

在打开的编辑器中,输入

    MsgBox ("消息框")

关闭设计模式和编辑器,点击按钮测试

同样的可以创建两个ActiveX按钮,完成删除所选区空列和删除所选区空行

下面的方法是用VBA代码来删除工作表指定区域中的空行和空列:
在运行代码前,先选择需要删除空行和空列的区域。如果要删除空行,则运行Delete_Empty_Rows(),指定区域中的空行将被删除。

注意所谓空行是在指定区域中的,如果在指定区域内是空行,而在指定区域外不是空行,那么这些空行还是将会被删除。删除空列则运行Delete_Empty_Columns()。

不过,此刻的代码作用在Sheet1 上

Private Sub CommandButton1_Click()
MsgBox ("消息框")
End Sub Private Sub CommandButton2_Click()
Delete_Empty_Rows
End Sub Private Sub CommandButton3_Click()
Delete_Empty_Columns
End Sub
'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 If rnArea.Rows.Count <= Then
MsgBox ("请先选中一块多行包含文字的区域")
GoTo LastLine
End If j = For i = lnLastRow To Step -
If Application.CountA(rnArea.Rows(i)) = Then
rnArea.Rows(i).Delete
j = j +
End If
Next i If (lnLastRow - j) > Then
rnArea.Resize(lnLastRow - j).Select
End If Application.ScreenUpdating = True LastLine: 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 If rnArea.Columns.Count <= Then
MsgBox ("请先选中一块多列包含文字的区域")
GoTo LastLine
End If j = For i = lnLastColumn To Step -
If Application.CountA(rnArea.Columns(i)) = Then
rnArea.Columns(i).Delete
j = j +
End If
Next i If (lnLastColumn - j) > Then
rnArea.Resize(, lnLastColumn - j).Select
End If Application.ScreenUpdating = False LastLine: End Sub

调整好按钮位置就可以用了。不过有时候按钮会挡住文字部分,所以可以把它移动到快速访问工具栏上。

自定义到工具栏,快速访问

excel选项-自定义-从下列位置选择命令-选择宏-》STEP添加到自定义快速访问工具栏中

附件

[No0000C1]Excel 删除空白行和空白列VBA代码的更多相关文章

  1. 升级:DNAtools for Excel工具箱,2.x英文版- VBA代码破解工具

    原始出处:www.cnblogs.com/Charltsing/p/DnaTools.html QQ:564955427 DNA工具箱全部功能一览:    单元格焦点指示(支持Excel 2007~2 ...

  2. Excel清除无用数据行和数据列

    http://jingyan.baidu.com/article/6525d4b13ae608ac7c2e9478.html ctrl+shift+↓ ctrl+- ctrl+shift+→ ctrl ...

  3. StringGrid 实例1:初始化StirngGrid的首行和首列

    实例1:初始化StirngGrid的首行和首列

  4. WPF Datagrid 控制 第一行和第一列之间的空白

    原文:WPF Datagrid 控制 第一行和第一列之间的空白 这个位置就是 这里 我们更改 DataGridControltemplate 模板 看树形结构 里面是一个BUtton 功能是全选 能找 ...

  5. 实用的php清除html,php去除空格与换行,php清除空白行和换行,提取页面纯文本

    实用的php清除html,换行,空格类,php去除空格与换行,php清除空白行和换行,提取页面纯文本内容 方法一: function DeleteHtml($str) { $str = trim($s ...

  6. excel同时冻结首行和首列怎么操作

    之前ytkah只知道excel可以冻结首行或首列,但还不清楚如何同时冻结excel首行和首列,后面看到小C的报表,问了他才明白怎么操作. 首先,我们先把选中B2单元格,点击导航菜单的“视图” - “冻 ...

  7. 【Python】删除字符串的空白

    在程序中,额外的空白可能让人迷惑,对于程序员来说,'python'跟'python '看起来几乎一样,但是对于程序来说,可是千差万别 (lstrip)删除开头空白 >>> Langu ...

  8. 解决方案:从网站下载Excel,我的Office 2016,打开excel文件,显示空白

    今天在写Excel导出案例demo的时候发现,Excel下载后打开空白,要打开了看到空白后再点击一次打开后才可以显示,效果就如下图所示: 那么我就不能一次打开吗?我找了半天最终在这个博客找到了答案:h ...

  9. word中如何删除一张空白表格

    百度知道:https://baijiahao.baidu.com/s?id=1631677477148377412&wfr=spider&for=pc 当word中出现如下一张空白表格 ...

随机推荐

  1. V8编程入门

    本文档介绍了V8引擎的一些关键概念,并提供了例子hello world指引你入门. Hello World 让我们看一个Hello World的示例,它将一个字符串参数作为JavaScript语句,执 ...

  2. Spring util-namespace下标签相关操作

    java代码 package com.stono.sprtest; import java.util.List; import java.util.Map; import java.util.Set; ...

  3. ARPU值分析

    每用户平均收入(“ARPU)它由一个消费群体消费总额除以群体总人数得到. 活跃付费账户(“APA”) 平均同时在线玩家人数(“ACU”) 最高同时在线玩家人数(“PCU”)同时在线玩家数最高峰. 千人 ...

  4. React快速入门教程

    简介 Facebook官网介绍:React 是一个用来构建用户界面的 JavaScript 库.相当于 MVC 架构的 V 层. React 的核心思想是:封装组件,各个组件维护自己的状态和UI,当状 ...

  5. 我的2016年终总结(PF项目框架设计心得分享 2.0rc)

    在无数的日夜里,熬出了多少的黑眼圈,致勤勤恳恳工作的各位朋友与自己.每到了年末的时候总想写的什么,主要是为了回顾以往一年里到底做了什么,这便是年终总结的主要意义.在此我将要总结的是和我在技术层面上成长 ...

  6. Hadoop学习笔记-008-CentOS_6.5_64_yum安装mysql

    ******************************卸载mysql***************************** 第一步,查看centos上是否已经安装了mysql数据库 # rp ...

  7. react native ios打包到真机

    每当在模拟器上完成了开发,都想到真机上秀秀,正好前段时候买了一个mac,哈哈有机会了.前篇文章以android为例,这里就以ios为例,讲一下打包到iphone真机的流程. 一.前置 1.首先你得有一 ...

  8. C++ 头文件系列(iterator)

    简介 该头文件围绕迭代器展开,定义了一系列与迭代器有关的概念,但最最最重要的一点就是----它和其它容器一起实现了C++容器的Iterator设计模式. Iterators are a general ...

  9. Struts1文件上传、单文件、多文件上传【Struts1】

     将struts1文件上传的操作汇总了一下,包括单文件上传和多文件上传,内容如下,留作备忘: Struts2实现文件上传的文章(http://blog.csdn.net/itwit/article/d ...

  10. LoRaWAN协议(七)--完整数据流程

    以下的GW指Gateway 所用指令: root@lora-iot-sk:~# tcpdump -i lo -nn -x 'length>100' 入网流程 GW -> NS join_r ...