58问答库 > excel复制多个文件中固定工作表到另一个总的工作表中(用宏写)

excel复制多个文件中固定工作表到另一个总的工作表中(用宏写)

2024-11-04 09:54:58

推荐回答（1个）

回答（1）：

sub 宏1()
    dim p,n,st
    set st=activesheet '所有文件的内容合并到当前工作表中
    p="c:\" '需要合并的文件所在的位置，必须以\结尾
    n=dir(p & "*.xls*")
    while n<>""
        with workbooks.open p & n
            .sheets("附注").select
            activesheet.usedrange.copy st.cells(st.usedrange.rows.count+1,1)
            .close
        end with
        n=dir
    end while
end sub