VBA代码导入多个列从一张到另一张

Question

我想从一个Excel电子表格导入几列到另一个。以下是我在这个论坛上找到的代码，它工作正常。我面临的唯一问题是它只导入一列。

有人可以请指导我如何编辑代码，以便我可以导入多列？

Importing single Column 
Sub CopyColumnToWorkbook() 
Dim sourceColumn As Range, targetColumn As Range 

Set sourceColumn = Workbooks("Source.xlsm").Worksheets("2017"). Columns(“A”) 
Set targetColumn = Workbooks("Target.xlsm").Worksheets("Field WH Projections").Columns(“A”) 

sourceColumn.Copy Destination:=targetColumn 
End 

Answer 1

更新是根据OP要求对不相关列

Sub ColumnCopy() 
Dim Source_Sheet As Worksheet, Target_Sheet As Worksheet 
Dim CLM As Integer, LastColumn As Integer 

Set Source_Sheet = Workbooks("Source.xlsm").Worksheets("2017") 
Set Target_Sheet = Workbooks("Target.xlsm").Worksheets("Field WH Projections") 

LastColumn = Source_Sheet.Cells.Find("*", searchorder:=xlByColumns, searchdirection:=xlPrevious).Column 

For CLM = 1 To LastColumn 

'Columns 1 or (A)... 2 (B).... F and H. 
If CLM = 1 Or CLM = 2 Or CLM = 6 Or CLM = 8 Then 

Source_Sheet.Columns(CLM).Copy Destination:=Target_Sheet.Columns(CLM) 

End If 

Next CLM 

End Sub