从可变范围复制偏移量像元

Question

我有一个用作范围的变量，正在寻找一种更好的方法来从中复制/粘贴。 我知道“ .copy destination：=”方法，但是我正在复制/粘贴偏移量单元格，而不是变量范围，并且在弄清楚没有此丑陋代码的情况下我很难解决：

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