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

上記の関数は正常に動作しますが、コピーする行と列のアドレスまたは範囲を指定できるように、上記の関数を引数で動作させたいと考えています。

範囲には、あらゆる種類のデータまたはすべてのデータ型を含めることができます。

どんな助けでも本当に感謝しています..

4

1 に答える 1

2
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

変数には好きな名前を付けることができますが、意味のあるものにするようにしています。

于 2013-10-16T18:32:38.937 に答える