vb.net - 复制带参数的单元格范围

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

你可以为你的变量命名任何你想要的，我试着让它们有意义。