从变量范围内复制偏移单元

Question

我有一个可用作范围的变量，正在寻找一种更好的方法来复制/粘贴。我知道" .Copy目标：="方法，但我正在复制/粘贴偏移单元格，而不是可变范围，并且在没有此丑陋的代码的情况下弄清楚如何做到这一点：

current.Range(origin).Select
current.Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 3)).Copy
current.Range(dest).Select
current.Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 3)).PasteSpecial xlPasteAll

Answer 1

尝试以下：

With current.Range(origin)
    current.Range(.Offset(0, 1), .Offset(0, 3)).Copy _ 
        Destination:=current.Range(dest).Offset(0, 1)
End With

或更好的：

With current
    .Range(origin).Offset(0, 1).Resize(, 3).Copy _ 
        Destination:=.Range(dest).Offset(0, 1)
End With