0

あるシートから別のシートに変数列をコピーするマクロを作成しようとしています。たとえば、列 A シート 3 を列 A シート 6 に、列 B シート 3 を列 C シート 6 などにコピーしたいとします。

何度も呼び出せる 1 つのプロシージャを作成したいと考えていました。

Sub Copy_Column(a, b)
    Sheets(3).Select
    Range("a11:a1000").Select
    Selection.Copy
    Sheets(6).Select
    Range("b15").Select
    ActiveSheet.Paste
End Sub

Sub Master()
    Call Copy_Column(a, a)
End Sub

シート 3 の列 A を、列 A ではなく、シート 6 の列 B にコピーします。

前もって感謝します！

4

1 に答える 1

1

ルーチンでaandパラメーターを使用することはありません。 列の文字を表すという意味でしたか? もしそうなら、b

Sub Copy_Column(byval a as string, byval b as string)
    Sheets(3).Range(a & "11:" & a & "1000").Copy Sheets(6).Range(b & "15")
End Sub

Sub Master()
    Call Copy_Column("a", "a")
End Sub
于 2012-08-21T07:03:58.447 に答える