我们项目管理有两个工作薄，一个里面有多个表，每天建一个，记录当天项目，另一个工作薄，有多个表，其中一个是所有项目汇总。

以前都是第一个工作薄一个表做完，再复制粘贴到第二个工作薄的汇总表中。

写了个VBA宏完成这个工作。

Sub CopyToOtherBook()

'

' copyToOtheBook Macro

' 宏由 cuianzhu 录制，时间: 2013-6-18

'

'

    Dim fname As String

    Dim maxLine As Integer

    Dim maxLineS As String

    Dim wb As Workbook

    Dim curSheet As String

    '除去表头，所有行选中

    maxLine = ActiveSheet.UsedRange.Rows.Count

    maxLineS = "2:" + CStr(maxLine)

    Rows(maxLineS).Select

    '复制

    Selection.Copy

    fpath = "D:\\XXX\\"

    fname = "第二个工作薄.xls"

    curSheet = "汇总表"

    '打开第二个工作薄，激活汇总表

    Set wb = Workbooks.Open(fpath + fname)

    wb.Worksheets(curSheet).Activate

    '找到最后一行

    maxLine = ActiveSheet.UsedRange.Rows.Count

    '选中最后一行下一行第一个表格

    Cells(maxLine + 1, 1).Select

    '粘贴

    ActiveSheet.Paste

    ActiveWorkbook.Save

    ActiveWorkbook.Close

End Sub

然后在对应的表里执行该宏，就可以把所有该表的数据复制到另一个工作薄的汇总表里了。