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