偏移 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

Offset VBA Range based upon leftmost cell