使用VBA把EXCEL工作簿指定列的内容复制到另外的几个工作簿当中的指定列？

Question

有一个工作簿，从A列到F列都有数据，现在同一文件夹下另外有6个工作簿，此时需要使用VBA把当前工作簿A到F列的内容分别复制粘贴到另外6个工作簿的A列。（一个一个工作簿打开，然后复制数据并粘贴保存。）

Answer 1

'6个工作簿的名字分别是1~6
Sub YgB()
    Dim i,arr
    for i=1 to 6
        WorkBooks.Open(i)
        arr=ThisWorkBook.Sheets(1).Columns(i)
        ActiveSheet.Columns(1)=arr
        ActiveWorkBook.Close savechange:=True
    next i
End Sub