如何快速删除带空值的一列（隔列插入空白列）

今天分享隔列插入空白列和批量删除空白列的方法：

隔列插入空白列：

一、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编程，建模、表格设计等问题，也可以点击后方的广告，找我们一对一定制哦！

,