如何複製粘貼所有格式而不使用select vba

Question

如何在不使用select的情況下複製範圍。我需要一切，不僅僅是價值觀。 當前龐大代碼：

Function Template(x As Integer) 
    Sheets("Sheet1").Select 
    Sheets("Sheet1").Range("E1:H5").Select 
    Selection.Copy 
    Sheets("Sheet2").Select 
    Sheets("Sheet2").Cells(1, x).Select 
    ActiveSheet.Paste 
End Function 

謝謝！

Answer 1

您可以使用Range.Copy（https://msdn.microsoft.com/en-us/library/office/ff837760.aspx）來複制一個範圍，而不引起的選擇，例如...

Range("A1").Copy Range("A2") 

將複製的一切，包括值和格式從A1到A2。

Answer 2

Function Template(x As Integer) 
    Dim sourceRange As Excel.Range 
    Dim destinationRange As Excel.Range 

    Set sourceRange = Sheets("Sheet1").Range("E1:H5") 
    Call sourceRange.Copy 


    Set destinationRange = Sheets("Sheet2").Cells(1, x) 
    Call destinationRange.PasteSpecial(xlPasteAll) 

End Function