今天分享隔列插入空白列和批量删除空白列的方法：
隔列插入空白列：
一、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编程，建模、表格设计等问题，也可以点击后方的广告，找我们一对一定制哦！
,
