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

发布网友发布时间：2024-03-05 09:17

共1个回答

热心网友时间：2024-08-10 13:54

'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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com