Question

EXCEL2003 每天一个销售日报表，想将这些表合并到一个新表中，如图

如上图，我想把8月份所有日报表中的数据都复制到新的8月销明细表里，一个一个复制太麻烦，而且容易出错，请教大神，有没有批量处理的方法呢
也就是说把当月每日销售日报表里的记录全都复制到一张新的表格里





Answer 1

最好，前面的每行格式跟汇总表每行的格式一一对应，然后用图中公式即可求得每月各项的总和，进行汇总。

追问

我不是想汇总，是想把各表中的数据复制到新表当中

Answer 2

有现成的宏程序。

Sub A合并多个工作薄上的工作表() '将其他多个工作簿的所有工作表合并到当前工作薄中

Dim FileOpen
Dim x As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")
x = 1
While x <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(x)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub

errhadler:
MsgBox Err.Description
End Sub

追问

我晕，这是要逼我做程序猿的节奏啊，谢啦，研究一下

Answer 3

27 570 47690
加企 鹅号 细谈，诚心为您服务