VBA скрипт, который переставляет колонку? Меняет местами 2 колонки?

Пользователь

Сообщений: 8 Регистрация: 31.05.2018

11.06.2018 08:41:43

Есть ли лаконичный VBA скрипт, который переставляет колонку?
Например была колонка номер 2, нужно ее переставить в номер колонку 15.
Есть ли для этого специальные операторы в VBA?
Или только циклом проходиться по всем ячейкам ?

Буду благодарен за ответ !

Sanja

Модератор

Сообщений: 16500 Регистрация: 10.01.2013

11.06.2018 08:49:36

Цитата
vkcntoread написал: была колонка номер 2, нужно ее переставить в номер колонку 15

Код
Sub CutPaste() Columns(2).Cut Columns(15) End Sub

Достаточно лаконично?

Согласие есть продукт при полном непротивлении сторон

ocet p

Пользователь

Сообщений: 448 Регистрация: 24.03.2018

11.06.2018 12:05:33

Цитата
vkcntoread написал: Меняет местами 2 колонки

Код
Sub Makros() Columns("B:B").Cut Columns("O:O").Insert Shift:=xlToRight Columns("O:O").Cut Columns("B:B").Insert Shift:=xlToRight End Sub