<em>excel</em>工作表怎么复制一张工作表到另一个-excel 宏 复制工作表,exc

Dim arr
arr = Range("a1:d10") ' 需要复制数值的知区域，保存结果到数组里面
With workbooks.open("a.xlsx") '打开指定的另外的文道件
    .Sheets("sheet1").Range("a10:d20") = arr '复制值到另外的区域
    .Save
    .Close
End With

文件必须要打开才可以版修改权，上面的例子是打开、修改、保存、关闭。

打开两个工作簿，在你想复制的工作表的标签上点右键，选择移动或复制

在建立副本前的方框里打勾，点击下拉箭头选择你要复制到的工作表，选确定

Sub 汇总复()

Dim strPath As String

Dim MySht As String

Dim MyWK As Workbook

strPath = ThisWorkbook.Path

For I = 2 To 2001

If Cells(2, I) = "" Then

Exit For

Else

Set MyWK = Workbooks.Open(strPath & "\" & Cells(2, I) & ".xlsx") ''请注意你的制EXCEL档案存放百的路径度

ARR = Range("B2:B7") ''注意你要复制的知资料范围道

End If

MyWK.Close

Cells(3, I).Resize(6, 1) = ARR

Next

End Sub

sub 宏1()
    dim p,n,st
    set st=activesheet '所有文件copy的内容合并到当前工百作表中
    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