怎样将多个excel 工作表合并成一个工作表

使用VBA将多个具有不确定数据区域的工作表的数据快速合并到一个工作表的方法。有需要的朋友可以配合教程学习!

方法/步骤

分别有工作表1、2、3数据区域如下图所示:

怎样将多个excel 工作表合并成一个工作表

怎样将多个excel 工作表合并成一个工作表

怎样将多个excel 工作表合并成一个工作表

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

怎样将多个excel 工作表合并成一个工作表

输入如下代码:

复制代码

代码如下:

Option Explicit

Sub hbgzb()

Dim sh As Worksheet, flag As Boolean, i As Integer, hrow As Integer, hrowc As Integer

flag = False

For i = 1 To Sheets.Count

If Sheets(i).Name = “合并数据” Then flag = True

Next

If flag = False Then

Set sh = Worksheets.Add

sh.Name = “合并数据”

Sheets(“合并数据”).Move after:=Sheets(Sheets.Count)

End If

For i = 1 To Sheets.Count

If Sheets(i).Name <> “合并数据” Then

hrow = Sheets(“合并数据”).UsedRange.Row

hrowc = Sheets(“合并数据”).UsedRange.Rows.Count

If hrowc = 1 Then

Sheets(i).UsedRange.Copy Sheets(“合并数据”).Cells(hrow, 1).End(xlUp)

Else

Sheets(i).UsedRange.Copy Sheets(“合并数据”).Cells(hrow + hrowc – 1, 1).Offset(1, 0)

End If

End If

Next i

End Sub

怎样将多个excel 工作表合并成一个工作表

按ALT+F8打开宏对话框窗口,鼠标单击执行hbgzb宏。

怎样将多个excel 工作表合并成一个工作表

实现如图所示效果:

怎样将多个excel 工作表合并成一个工作表

注意事项

本段VBA代码由于将编辑过的区域作为源数据区域,顾无论该数据源有无数据,只要曾经编辑过皆做为源数据源,做拷贝处理。

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 86345@qq.com 举报,一经查实,本站将立刻删除。
(0)
上一篇 2022-04-03 18:20:05
下一篇 2022-04-03 18:30:12

猜你喜欢

  • 腾讯团购叫什么,腾讯的团购平台

    腾讯在微信内做了一个团购工具小程序。《新言财经》独家获悉,腾讯于近日在微信内内测了一款团购工具小程序“鹅享团”。据内部人士透露,鹅享团是面向小微商户,针对微信私域交易场景,提高交易…

    2023-07-13
  • 壮族绣球是怎样制作的?下面为你解析。

    壮族绣球自明末清初出现以来,已有400多年的历史。据史料记载,早在明末清初,广西靖西市龙邦一带的乡村男女青年成群结队在山野中对唱山歌、谈情说爱时,随手摘下山间的花草,用藤扎成花球,…

    2024-08-19
  • 石河子大学有哪些好专业_石河子大学怎么样

    之前我们有给大家推荐了新疆最值得就读的高性价比大学——石河子大学,新疆最值得推荐的一所大学 绝对的高性价比 那你知道这所大学有哪些专业都很厉害呢,很值得就读也很值得推荐给大家呢,下…

    2022-12-10
  • 哪些牌子是天然矿泉水(什么牌子是天然矿泉水)

    1、斐泉(FIJI Water) 产地:斐济 海水深蓝,岛屿墨绿,在海的尽头和岛屿的边缘,隐匿着一片神奇的群岛海域——斐济,它被誉为“南太平洋上的明珠”。 在遥远的斐济Viti L…

    2022-04-17
  • excel多个打印区域怎么弄在一页

    有时候我们不想在Excel中打印整个表格,只想打印一些数据。比如我们想把几个不相邻区域的数据打印在同一个页面上,在Excel 2010中应该怎么做? step01 打开要打印的.x…

    2022-04-18
  • 葡萄上色不正常是什么原因_帮助促转色的方法

    葡萄转色期是葡萄优质高产的重要时期,是葡萄生长的重要转折点。 葡萄转色,是在硬核期以后的葡萄,酸度开始慢慢下降,然后糖度上升,葡萄中的叶绿素开始转变成花青素,花青素和糖结合就是花色…

    2023-04-06
  • 房子极简装修风格,房屋极简风格设计

    在这个追求个性化的时代,家不仅仅是简单的住宅,更是彰显主人品味与生活态度的舞台。而当家居装修遇上极简风,似乎一切复杂的纠结都被减到了最低,留下的,只有纯粹的美学和不经意间的惊艳。今…

    2024-01-14
  • 胃不好少吃什么水果_这3种水果最好不要碰

    胃是人体重要的器官之一。俗话说:“病从口入”,所以说饮食的好坏也影响着胃的健康与否。而对于胃不好的人来说,很多人都觉得吃水果会有利于胃病。但是水果也是不能乱吃的,下面就让我们看看,…

    2023-05-03
  • 又一位老戏骨离世,生前一张照片令人心疼

    曾几何时,香港娱乐圈涌现出一批又一批的黄金配角,这些演员也许其貌不扬,但十分敬业,演技精湛,尊称他们一声“老戏骨”亦不为过。 随着一个又一个老戏骨的离开,不禁令人感慨万分。感叹人生…

    2024-07-16
  • 电热水壶哪款好用,哪一款电热水壶质量好

    电热水壶是一种被广泛应用的小型家电,但也是目前事故和潜在危害最多的产品之一。它也被成为电水壶、热水壶等。电热水壶作为家庭常见设备,其重要性不言而喻。然而,当前电热水壶市场发挥迅速,…

    投稿 2023-10-21

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注