Excel 2010 VBA複製多列工作表中的列並追加到活動工作表中

Question

如果有人可以幫助我使用VBA，我將非常感激。循環遍歷同一WorkBook中的多個工作表，並複製1列即列B，然後粘貼/追加到活動工作表的下一個空白列中。

感謝， 阿迪爾

Answer 1

這裏有一些限制，但這應該讓你開始。

Sub copyColumn() 
    Dim wks As Worksheet 
    Set wks = ActiveSheet 

    'Source worksheet to copy from 
    Dim srcwk As Worksheet 
    Set scrwk = ActiveWorkbook.Worksheets(3) 

    'Copy range A1:A10 from source to active sheet in next open column 
    scrwk.Range("A1:A10").Copy wks.Range("IV1").End(xlToLeft).Offset(0, 1) 
End Sub 

Answer 2

是這樣的嗎？

Sub Move_Column() 

CurrWS = ActiveSheet.Name 
    For each Sheet in ActiveWorkbook.Sheets 
     If Sheet.Name <> CurrWS Then 
      NextColumn = Sheets(CurrWS).Range("XFD1").End(xlToLeft).Column + 1 
      Sheets(CurrWS).Range(Sheets(CurrWS).Cells(1, NextColumn), Sheets(CurrWS).Cells(100, NextColumn)).Value = Sheet.Range(Sheet.Cells(1, 2), Sheet.Cells(100, 2)).Value 
     End if 
    Next 

End Sub