系统每日生成一张报表，一个月30张，需要将这30张报表文件里面的13~42行数值拷贝到【汇总】表格里，【汇总】表格已经排好打印版面可以直接打印。
每月手动ctrl+c ctrl+v选择仅值。有没有方便的自动汇总脚本！不然每月都要死一次！！手工复制量太大了
下面是样本和格式！
百度网盘
有没有大神能搞定的

用一个文件，分表一张（100万行应该够一个月数据），总表一张。

用宏

这是多张工作薄合并固定行，这个代码网上找找，很多的

Sub test()
Dim mypath, myfile
Dim i
mypath = ThisWorkbook.Path & "\"
myfile = Dir(mypath & "*.xls")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While myfile <> ""
i = Workbooks("汇总.xls").Sheets(1).Range("a" & Cells.Rows.Count).End(3).Row
If myfile <> ThisWorkbook.Name Then
Workbooks.Open mypath & myfile
ActiveWorkbook.Sheets(1).Range("a13:r42").Copy Workbooks("汇总.xls").Sheets(1).Range("a" & i + 1)
End If
myfile = Dir
Loop
Workbooks("汇总.xls").Save
Workbooks("汇总.xls").colse
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
你试一下

1、直接在月汇总表内填写和日报表一样的名称顺序，2、然后在表格下的第一个格比如B1上双击填写：=[1.1日报表]sheet1！B1回车会弹出更新值到1.1日报表，3、点击1.1日报表。就可以把1.1日的数据显示到月汇总表上来了。4、这个比vlookup要方便多了。