帶參數的單元格的複製範圍

Question

Function rangecopy() 
    Worksheets("Sheet1").Range("a1:d4").Copy _ 
    Destination:=Worksheets("Sheet2").Range("E5") 
End Function 

上述函數可以正常工作，但我希望上述函數能夠處理參數，以便我可以提及要複製的行和列的範圍或範圍。

範圍可以包含任何類型的數據或所有數據類型。

任何幫助，真是感激..

Answer 1

Function rangecopy(byval SourceSheet as string, byval SourceRange as string,byval DestSheet as string,byval DestRange as string) 
    Worksheets(SourceSheet).Range(SourceRange).Copy _ 
    Destination:=Worksheets(DestSheet).Range(DestRange) 
End Function 

您可以命名你希望你的變量什麼，我儘量讓他們有意義。