需要複製列H，K，L從一個Excel工作簿到使用Excel宏的新工作簿

Question

我有一個excel工作簿A.xlsx，列A到T，現在我需要將特定列H，K，L複製到當我運行宏時會創建新的工作簿。

我能夠成功地從一個工作表複製一系列的列到另一個，但我沒有找到一種方法將特定的列複製到新的工作簿。下面的示例代碼

Private Sub copy_sub() 
Sheets("Sheet1").Columns("H:K").Copy Sheets("Sheet2").Range("A1") 
End Sub 

Answer 1

試試這個：

Sub dural() 
    Dim r1 As Range, r2 As Range 
    Sheets("Sheet1").Select 
    Set r1 = Range("K:L") 
    Set r2 = Range("H:H") 
    Set wbNew = Workbooks.Add 
    r2.Copy Range("H1") 
    r1.Copy Range("K1") 
End Sub 

基於一個事實，即加入工作簿之後，新工作簿將成爲活躍和工作表Sheet1會成爲那本書中的活頁。還假設列H，K，L是要複製的，但不是列I.

Answer 2

嘗試

Private Sub copy_sub() 

    Dim wkb As Workbook 
    Set wkb = Workbooks.Add ' Will add new workbook 

    ' with column name 
    ThisWorkbook.Sheets("Sheet1").Columns("H").Copy wkb.Sheets("Sheet2").Range("A1") 

    'with column index 
    ThisWorkbook.Sheets("Sheet1").Columns(9).Copy wkb.Sheets("Sheet2").Range("A1") 

End Sub