时间戳

首页 > 解决方案 > 如何在每列之间添加多列？

excel - 如何在每列之间添加多列？

问题描述

我的代码在每个现有列之后添加一列。

我需要添加 14 列。我希望首先在每列数据的第 2 列之后添加列。我相信我当前的代码涵盖了这一点。

Dim z As Integer
Columns(2).Select
For z = 2 To 20
    ActiveCell.EntireColumn.Insert
    ActiveCell.Offset(0, 2).Select
Next z

标签： excelvba

解决方案

向后循环，无需Select。

这不会检查列中是否有任何数据。

Sub x()

Dim z As Long

For z = 20 To 2 Step -1
  Columns(z).Resize(, 14).Insert
Next z

End Sub

推荐阅读