偏移VBA范围基于最左边的单元格

Question

我想将所有数据复制到单元格的右侧，并将其粘贴到第一个选定单元格右侧的3个单元格。我正在使用以下代码，但它继续跳过选择结尾右侧的3列。

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

有没有办法使用选择的第一个单元作为移位的参考？

Answer 1

试试这个（未经测试）：

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

Answer 2

不确定我是否理解正确，但您是不是只在ActiveCell右侧插入三个单元格？

相反怎么样？

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