從變量範圍複製偏移單元格

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