武陵观察网 问答 多个表格合并到一个工作表(excel表格合并多个工作表)

多个表格合并到一个工作表(excel表格合并多个工作表)

使用VBA将多个具有可变数据区域的工作表中的数据快速合并到一个工作表中。有需要的朋友可以跟着教程一起学!

方法/步骤

工作表1、2和3分别有数据区。

按ALT F11打开VBE编辑器,右键单击工程窗口-插入-模块下的Microsoft Excel对象,新建一个模块1。

输入以下代码:

复制代码

代码如下:

选项显式

Sub hbgzb()

Dim sh为工作表,标志为布尔值,I为整数,hrow为整数,hrowc为整数

标志=假

对于i=1到张。数数

如果床单(一)。Name='合并数据' Then flag=True

然后

如果flag=False,则

设置sh=工作表。增加

先令Name='合并数据'

工作表(“合并数据”)。移动到:=张(张。计数)

如果…就会结束

对于i=1到张。数数

如果床单(一)。然后命名为“合并数据”

Hrow=工作表('合并数据')。使用范围。排

Hrowc=Sheets('合并数据')。使用范围。行数。计数

如果hrowc=1,则

工作表(i).UsedRange.Copy工作表('合并数据')。单元格(hrow,1)。结束(xlUp)

其他

工作表(i).UsedRange.Copy工作表('合并数据')。细胞(hrow hrowc-1,1)。偏移(1,0)

如果…就会结束

如果…就会结束

接下来我

末端接头

按ALT F8打开宏对话框窗口,点击执行hbgzb宏。

达到效果:

需要注意的事项

这个VBA代码是把编辑过的区域作为源数据区域,不管数据源有没有数据,只要被编辑过,就作为源数据源,进行复制。

以上是使用VBA将多个excel工作表数据快速合并成一个工作表的介绍。希望能对大家有所帮助!

本文来自网络,不代表本站立场,转载请注明出处:https:

多个表格合并到一个工作表(excel表格合并多个工作表)

武陵观察网后续将为您提供丰富、全面的关于多个表格合并到一个工作表(excel表格合并多个工作表)内容,让您第一时间了解到关于多个表格合并到一个工作表(excel表格合并多个工作表)的热门信息。小编将持续从百度新闻、搜狗百科、微博热搜、知乎热门问答以及部分合作站点渠道收集和补充完善信息。