Как скопировать все форматы без использования в 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