• 首页
  • 技巧视频
    表格技巧
    表格基础编辑 函数公式 数据处理 图表与对象 审阅安全与分享 页面布局与打印 表格权益
    文字技巧
    文字编辑 插入引用 页面布局 视图 文档打印 特色快捷
    演示技巧
    排版设计 插入编辑 动画效果 放映视图 其他
    云文档技巧
    WPS云文档 金山文档
  • WPS系列课
    表格系列课
    《表格新手教程》 《数据透视表实例应用》 《表格打印技巧合集》 《WPS表格宏使用教程》
    文字系列课
    《文字新手教程》 《毕业论文排版课程》 《文字打印技巧合集》 《文档页眉页脚和页码设置》
    演示系列课
    《演示新手教程》 《演示实用小技巧》 《演示打印技巧合集》
    其他
    《WPS 云新手教程》 《WPS PDF新手教程》 《大学生WPS使用技巧》 《WPS计算机二级高效通关》
  • 技巧问答
  • Office图书馆
    高效技巧
    数据技巧 文字技巧 演示技巧 协作管理 特色技巧
    职业专题
    学生专题 教师专题
    了解WPS
    金山办公系列产品 金山故事
  • WPS大赛
登录

如何将两个表格文件合并成一个表格文件?

如何将两个表格文件合并成一个表格文件?

用一个VBA就可以实现的。 使用方法: 1、新建一个工作薄,将其命名为你合并后的名字。 2、打开此工作薄。 3、在其下任一个工作表标签上点击右键,选择“查看代码”。 4、在打开的VBA编辑窗口中粘贴以下代码: Sub 工作薄间工作表合并() 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 5、关闭VBA编辑窗口。 6、在excel中,工具---宏---宏,选“工作薄间工作表合并”,然后“执行”。 7、在打开的对话窗口中,选择你要合并的300个工作薄。 8、等待。。。。ok!
操作设备: 电脑 操作系统: windows 10 操作版本: WPS Office 2019 PC个人版

是否解决了你的问题?

有帮助
无帮助

学堂自习室为用户交流问答内容,未经官方精选加工。

但海量内容中,不乏一些有价值技巧,仅供各位同学参考学习。

学习官方WPS技巧请至 WPS学堂

Copyright © 2008- 2019 Kingsoft Office Corporation, All Rights Reserved.

粤ICP备13015957号-1 公安备案号:44049102496073