Question

我正在尝试创建一个宏，将可变列从一个工作表复制到另一个工作表。例如，我想将A-Sheet A列复制到A-A列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

嗯，你从不在例程中使用a和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

Excel宏模块用于复制变量列

1 个答案: