今天分享隔列插入空白列和批量删除空白列的方法:
隔列插入空白列:
一、ctrl方法
先看一下动图效果
步骤一:
按住ctrl然后鼠标左键依次点选所有列。(不连续的选中,列中间有白线)
步骤二:
都选中之后,按住ctrl++(ctrl和+号)即可隔列插入列。
这个方法同样可以应用于隔行插入空行,有兴趣的亲们可以回去试试。
二、辅助行排序法:
这个动图太大了,传不上来,就分步骤写吧。
步骤一:
插入一个辅助行(黄色部分)在源数据位置分别填充1:列数,步长为1。
步骤二:
在空白列的辅助行处依次填充1.5-第一步骤的最后一个数+0.5.(1.5开始是在原列的后面插入空白列,如果是要在原列的前面插入空白列,起始从0.5填写)步长同样为1.
这个步骤中0.5可以是一个任意的数字,只要是0-1之间的数即可。
步骤三:排序
选中区域,点击自定义排序
选项中选择【按行排序】,选择主要关键字为【行1】,次数为【升序】
点击确定即可。
结果如下:
最后删掉辅助行即可。
这个方法同样适用于隔行插入空行。
三、代码
Sub 隔列插入列()
Dim i As Integer
For i = 9 To 2 Step -1
Columns(i).Insert
Next i
End Sub
====================分割线====================
接下来是如何批量删除空白列。
今天用的是:定位
步骤一:
全选整个工作表,然后用tab键将光标移动到第一个空列处位置。
定位选择:【行内容差异单元格】定位:F5 、CTRL+g
步骤二:
【开始】选项卡下【格式】→【隐藏和取消隐藏】→【隐藏列】
快捷键:ctrl+0 (不是小键盘的0)
步骤三:
全选整个工作表,【定位】-【可见单元格】
【开始】选项卡下【删除】→删除列
【开始】选项卡下【格式】→【隐藏和取消隐藏】→【取消隐藏列】
如果您有任何关于excel的问题都可以留言或者私信我们,遇到系统开发,vba编程,建模、表格设计等问题,也可以点击后方的广告,找我们一对一定制哦!
声明:我要去上班所有作品(图文、音视频)均由用户自行上传分享,仅供网友学习交流,版权归原作者所有,原文出处。若您的权利被侵害,请联系删除。
本文标题:(excel一次性取消隐藏的不连续的行)(excel一次性取消隐藏)
本文链接:https://www.51qsb.cn/article/344.html