从可变范围复制偏移单元格

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