选项中选择【按行排序】，选择主要关键字为【行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）
