首页 →文档下载

以下为《合并表格vb公式》的无排版文字预览，完整内容请下载

合并多个表格为一个表格的多个sheet

Sub CombineWorkbooks()

Dim FilesToOpen, ft

Dim x As Integer

Application.ScreenUpdating = False

On Error GoTo errhandler

FilesToOpen = Application.GetOpenFilename _

(FileFilter:="Micrsofe Excel文件(*.xls), *.xls", _

MultiSelect:=True, Title:="要合并的文件")

If TypeName(FilesToOpen) = "boolean" Then

MsgBox "没有选定文件"

'GoTo err 内容过长，仅展示头部和尾部部分文字预览，全文请查看图片预览。 s(1).Select

Worksheets.Add '新建一个工作表

Sheets(1).Name = "汇总工作表" '对新建工作表重命名

For i = 2 To Sheets.Count 'For循环，遍历所有工作表

Sheets(i).Activate '激活工作表

Range("a1").Select

Selection.CurrentRegion.Select '选择活动工作表数据区域

Selection.Copy Destination:=Sheets(1).Range("a65536").End(xlUp).Offset(1) '粘贴到汇总工作中

Next

MsgBox ("工作表已全部合并到指定工作表中！") '弹窗提示合并完成

End Sub

[文章尾部最后300字内容到此结束,中间部分内容请查看底下的图片预览]请点击下方选择您需要的文档下载。

1. ***的演进及区域协调发展
2. My name is Gana课件
3. Book4 unit4 教学设计与教学反思
4. Unit5_A_Let’s_learn优教课件
5. 幼儿园新冠病毒防御会议记录
6. 小学四年级班主任总结
7. 学校预防地震灾害应急预案
8. 意识形态工作责任分工
9. 疾病预防控制中心 领导班子典型案例以案促改工作专题
10. 课题:Unit2 Sailingthe
11. 建筑工程施工表格大全
12. STEM教育课程开发初探
13. 美赛指南中英文对照
14. ******_浅谈幼儿园家长工作策略
15. Deep Manifold Embedding for Hyperspectral Image Cl
16. 2018雅思词汇分类200句
17. 词汇手册139-144
18. 英文缩写
19. 工业互联与5G
20. 2018年个人工作总结

以上为《合并表格vb公式》的无排版文字预览，完整内容请下载

合并表格vb公式由用户“wang30947080”分享发布，转载请注明出处 回顶部 | 首页 | 电脑版 | 举报反馈 更新时间2021-02-03 02:44:52