変数で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とDを入力すると、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