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

发布网友发布时间：2022-04-24 10:01

共3个回答

热心网友时间：2023-10-09 16:05

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

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

热心网友时间：2023-10-09 16:06

有现成的宏程序。

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追问我晕，这是要*我做程序猿的节奏啊，谢啦，研究一下

热心网友时间：2023-10-09 16:06

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