三个月报表如何合并成季度报表,如果不太了解没有关系,本文数豆子搜集整理了相关信息,请大家参考。
三个月报表如何合并成季度报表?
答:三个月报表合并成季度报表,Excel将可以帮我们完成这一工作任务,如下:
1、从实验仪器拷贝的大量零散文件需要整合(先用仪器或自带软件转换为excel可读格式)
2、工作过程中将大家的独立工作簿,合并为一个工作簿上交(用下一个代码更合适)
3、需要把工作簿中所有的工作表都要合并进来
Sub 合并工作薄()
Dim FilesToOpen
Dim x As Integer
On Error GoTo ErrHandler
Application。ScreenUpdating = False
FilesToOpen = Application。GetOpenFilename _
(FileFilter:=“MicroSoft Excel文件(*。xlsx), *。xlsx”, _
MultiSelect:=True, Title:=“要合并的文件”) ‘选择要合并的文件,上一行两个。xlsx可以改为目标文件扩展名
If TypeName(FilesToOpen) = “Boolean” Then
MsgBox “没有选中文件”
GoTo ExitHandler
End If ’防止未选中文件
x = 1
While x 《= UBound(FilesToOpen)
Workbooks。Open Filename:=FilesToOpen(x)
Sheets()。Move After:=ThisWorkbook。Sheets(ThisWorkbook。Sheets。Count)
x = x + 1
Wend ‘循环移动工作表
ExitHandler:
Application。ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err。Description ’描述出现问题
Resume ExitHandler
End Sub
以上就是关于三个月报表如何合并成季度报表的相关内容,希望本文对你有所帮助,更多与报表有关的文章,请继续关注数豆子。