使用参数复制单元格范围

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

您可以根据需要为变量命名，我尝试让它们有意义。