vba - Excel宏模块复制变量列

Question

我正在尝试创建一个将变量列从一张纸复制到另一张纸的宏。例如，我想将 A-sheet 3 列复制到 A-sheet 6 列，B-sheet 3 列复制到 C-sheet 6 列，等等。

我希望创建一个可以多次调用的程序。

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 列复制到工作表 6 中的 B 列，而不是 A 列。

提前致谢！

Answer 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