Переместить выделение Excel в первый столбец (смещение?)

Question

Как переместить текущий выбор в первый столбец листа, сохранив те же строки. Пример - Текущий выбор - выбор D3, D4, D6 перенесен в A3, A4, A6 (столбцы текущего выбора будут меняться и не совпадать с D)

Selection.Offset(x, x).Select

Можно ли использовать смещение выделения?

Answer 1

Если вы хотите сделать это с Offset, вы можете сделать это так:

Sub test()

Dim x As Long
x = Selection.Column
Selection.Offset(0, -x + 1).Select

End Sub

x - это столбец вашего текущего выбора, уберите это количество столбцов, чтобы перейти к первому столбцу.,

Answer 2

Не могли бы вы сделать что-то подобное?Вырезать и вставить в виде макроса.Замените строки на ваш выбор.

Columns("B").Cut
Columns("F").Insert Shift:=xlToRight