Как добавить несколько столбцов между каждым столбцом?

Question

Мой код добавляет один столбец после каждого существующего столбца.

Мне нужно добавить 14 столбцов. Я хочу, чтобы это началось с добавления столбцов после столбца 2 для каждого столбца с данными. Я полагаю, что мой текущий код покрывает это.

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

Answer 1

L oop в обратном направлении, и нет необходимости Выбрать .

Это не проверяет, есть ли какие-либо данные в столбце.

Sub x()

Dim z As Long

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

End Sub

Answer 2

Welcome .... Ваш код вставляет 19 столбцов. Поскольку вы выбрали второй столбец, первый столбец вставляется между A и B. Теперь, если вы хотите вставить первые столбцы между B и C, сначала выберите третий столбец. а затем Z от 4 до 17 .. О, вы имеете в виду 14 столбцов каждый раз после столбца B? Тогда ...

Dim z As Integer
  Columns(3).Select
  For z = 4 To 22
    Range(ActiveCell, ActiveCell.Offset(0, 13)).EntireColumn.Insert
    'ActiveCell.EntireColumn.Insert
    ActiveCell.End(xlToRight).Offset(0, 1).Select
    'ActiveCell.Offset(0, 2).Select
  Next z