VBA使用范围与变量

Question

我想复制一系列表格并将其粘贴到新工作簿中。始终复制列A.除此之外，我想复制其他列组成的其他范围，但作为变量。例如，添加到列A，我复制列C和E.我尝试了几种方法，但我没有得到它！这就是我写的：

Sub Macro3()
Dim col1 As String
Dim copyrange1 As String
Dim copyrange2 As String
col1 = InputBox("first columns:")
copyrange1 = col1 & ":" & col1
col2 = InputBox("second columns:")
copyrange2 = col2 & ":" & col2
Range("A:A,copyrange1,copyrange2").Select
'Range("H2").Activate
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
'Range("E5").Select
Windows("Pedro.xlsm").Activate
End Sub

kann你能帮我解决一下吗？非常感谢！

Answer 1

这应该对你有用，请注意它只复制你输入的列... ex - 输入C和E只复制A，C，E。如果输入C和E，则不会复制C，D和E.

signUp