多个sheet合并宏代码，如何把多个sheet合并到一个sheet

今天由小编为大家整理发布，本网站分享生活常识、旅游攻略、教育教学、房产楼市等综合信息，希望大家能够喜欢。

以下就是我们要分享的内容：

多个sheet合并成一个sheet的宏代码，多个sheet合并成一个这个很多人还不知道,现在让我们一起来看看吧！

1、使用方法：新建一个工作薄，将其命名为你合并后的名字。

2、2、打开此工作薄。

3、3、在其下任一个工作表标签上点击右键，选择“查看代码”。

4、4、在打开的VBA编辑窗口中粘贴以下代码：Sub 工作薄间工作表合并()Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")X = 1While X <= UBound(FileOpen)***.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Suberrhadler:MsgBox Err.DescriptionEnd Sub5、关闭VBA编辑窗口。

5、6、在excel中，工具---宏---宏,选“工作薄间工作表合并”,然后“执行”。

6、7、在打开的对话窗口中，选择你要合并的300个工作薄。

Www.517338.coM麻布岗信息网综合在线信息,汇聚城市生活,美食,购物,旅游,房产,交通,家居,财经,教育,健康,娱乐,历史,汽车,生活消费门户网站