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.

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