Excel spezifische Spalte Extraktion

Question

Ich habe versucht, bestimmte Spalten aus einer Excel-Tabelle aus einer Vielzahl von unerwünschten Spalten zu extrahieren. Ich habe das folgende Skript läuft:

Public Sub extractCol() 
    Set range1 = Range("A:A, BI:BI, C:C, L:L") 
    range1.Copy 
    Set newbook = Workbooks.Add 
    ActiveCell.PasteSpecial Paste:=xlPasteValues 
End Sub 

Diese Formel extrahiert die Daten jedoch kommt die Ausgabe aus wie:

Column A Column C Column L Column BI 

Wenn der Ausgang ich brauche, ist:

Column A Column BI Column C Column L 

Wie kann ich den Code ändern, um die gewünschte Ausgabe zu erhalten?

Answer 1

Es ist schnell (und schmutzig), aber der folgende Code erhalten Sie, was Sie wollen:

Public Sub extractCol() 

Dim newbook     As Workbook 
Dim ShtSource    As Worksheet 
Dim ShtDest     As Worksheet 

' modify Sheet 1 to your Source sheet name 
Set ShtSource = ThisWorkbook.Sheets("Sheet6") 

Set newbook = Workbooks.Add 

' modify Sheet 1 to your Destination sheet name 
Set ShtDest = newbook.Sheets("Sheet1") 

ShtSource.Columns("A:A").Copy Destination:=ShtDest.Columns(1) 
ShtSource.Columns("BI:BI").Copy Destination:=ShtDest.Columns(2) 
ShtSource.Columns("C:C").Copy Destination:=ShtDest.Columns(3) 
ShtSource.Columns("L:L").Copy Destination:=ShtDest.Columns(4) 

End Sub