Диапазон смещения VBA, основанный на самой левой ячейке

Question

Я хотел бы скопировать все данные справа от ячейки и вставить ее на 3 ячейки справа от первой выбранной ячейки. Я использую следующий код, но он продолжает переходить на 3 столбца справа от конца выделения.

Range(Selection, Selection.End(xlToRight)).Select
Selection.Cut
Range(ActiveCell.Offset(0, 2)).Select
ActiveSheet.Paste

Есть ли способ использовать первую ячейку выделения в качестве ссылки для сдвига?

Answer 1

Не уверен, правильно ли я понял, но вы просто вставляете три ячейки справа в ActiveCell?

А как насчет этого?

Range(ActiveCell, ActiveCell.Offset(0, 2)).Insert Shift:=xlToRight

Answer 2

Попробуйте это (не проверено):

Range(Selection, Selection.End(xlToRight)).Select
Selection.Cut ActiveCell.Offset(0, 2).Select
ActiveSheet.Paste