ExcelVBA 将多张工作表中的数据合并到一张工作表中

最新推荐文章于 2024-09-05 23:18:03 发布
最新推荐文章于 2024-09-05 23:18:03 发布
阅读量5.6k 收藏 30
点赞数 3
分类专栏： Excel VBA实例
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq389445046/article/details/104505617
版权
本文介绍了如何使用ExcelVBA将多个工作表中的数据高效地合并到一张工作表中，以解决实际工作中常见的数据汇总问题。通过VBA编程，实现了从各分表中提取成绩记录并整合到指定的汇总表中，详细解析了关键代码行的作用，如Set关键字、Rows集合、Range对象的End和Offset属性，以及Resize属性的应用。
摘要由CSDN通过智能技术生成

在工作中，我们经常遇到多张工作表合并到一张工作表的问题，比如希望将图1所示中各分表中保存的成绩记录，汇总到工作簿中的"成绩表"工作表中，可以用图2下面的程序。

图1 七(3)班工作表中的成绩记录

 

图2 汇总结果

Sub hebing()     '把各班成绩表中的记录合并到"成绩表"工作表中     Dim sht As Worksheet     Set sht = Worksheets("成绩表")     sht.Rows("2:" & sht.rows.count).Clear      '删除成绩表中的原有记录     Dim wt As Worksheet, xrow As Integer, rng As Range     For Each wt In Worksheets                   '循环处理工作簿中的每张工作表         If wt.Name <> "成绩表" Then             Set rng = sht.Range("A1048576").End(xlUp).Offset(1, 0)             xr
最低0.47元/天 解锁文章
snail一路向前
关注
专栏目录
excel vba 将多张数据表的内容合并到一张数据表
HappyDelano的专栏
08-21 3473
vba实现：一个Excel文件有很多个 样式相同 的数据表，将多张数据表的内容合并到一张数据表里
wps使用vba合并多个表格
weixin_61784764的博客
02-01 2378
把需要合并的表格放入同一个文件夹内，新建一个表格并打开， 依次选择“开发工具”， “查看代码”，出现vba窗口，点击“视图”，“代码窗口”（如页面为灰色，先选择“插入”，“模块”），粘贴以下文本： Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.Scree
VBA-合并多个相同格式的worksheet数据到一个worksheet_henry_dx_新浪博客
henry_dx的专栏
03-29 395
'合并多个相同格式的worksheet数据到一个worksheet Sub hebing() Rows("2:1024576").Clear Dim sht As Worksheet, xrow As Integer, rng As Range For Each sht In Worksheets If sht.Name <> Activ...
用VBA宏合并多个工作簿到一个表，可选择单元格范围
ziguannunu的博客
09-05 417
使用WPS没有EXCEL的POWER QUERY超级查询，可以用VBA宏合并多个工作簿。如果没有启用WPS宏，请先安装一个插件以启用WPS宏（不用交会员费，完全免费）
excel_VBA快速合并多表数据
12-04
自己学习VBA编程时，利用excel内VBA宏编写的简单命令，涉及一些基础的操作，亲测可用，初学者可以借鉴，也能利用其解决一些简单的办公问题。
Excel多表合并vba代码
HHZZZ888的博客
06-19 5899
2：创建一个叫做汇总的sheet用来放你的汇总数据（名字可以自己改），跟上面的步骤一样，启用宏代码即可，注意：其中的合并顺序是你自己sheet的下面从左至右的顺序→，可以自己调好顺序后再用宏。使用步骤：将代码复制进vba编程界面（不知道可以百度下怎么打开vba编程界面）启用宏，选好想要的合并的excel文件即可。1：多个excel复制到一个excel中的不同sheet。
VBA案例：使用过程，把多个表的总计，登记到新的工作表中
犇犇的学习笔记
06-07 519
需求 有三张表，把每张表的名称与总价提取到新的一张工作表中 1. 表1 2. 表2 3. 表3 4. 新表 4. 点击按钮，显示人员名称与总价 解决方法 1、 'Worksheet.name代表了工作表的名称，可以用它取得或修改工作表名 2、 'Worksheets引用工作表的两种格式 '1、根据工作表的显示位置：Worksheets（1） '2、根据工作表的名称：Worksheets（“xx”） 3、 ' Worksheets.Count 所有工作表 Opti
vba导入excel数据到另一个文件_如何将Excel中一个表格数据导入到另一个表格
weixin_39578899的博客
12-12 5235
将Excel中一个表格的数据导入到另一个表格的方法　　如下是一个Excel工作薄中的两张表，分别为Sheet1和Sheet2，下面分别以表1和表2来代替。我们要把表2中的语文成绩导入到表1中，但是从图中可以看出表1和表2名字并不一一对应　　选中表1，选中C2单元格，即语文项目中第一个要录入的成绩。选择“插入—函数”命令　　在“或选择类别”中选择“查找与引用”　　在对应的“选择函数”中选择“VLOO...
利用VBA代码合并多个Excel表格
Hqq_CSDN的博客
08-30 6374
利用VBA代码合并多个Excel表格
excel合并文件夹下所有excel文件到一个工作表中
03-19
excel中vba下的代码，合并当前文件夹下所有excel工作表到一个新建的工作表中，并将合并的数据进行横向铺开排列。
合并多工作簿中同名工作表
01-19
在Excel中，有时我们需要处理多个含有相同工作表结构的工作簿，并将它们的数据合并到一个单一的工作簿中。这种操作在数据分析、报告整理或项目管理中非常常见。VBA（Visual Basic for Applications）是Excel内置的...
批量合并多个工作簿为一个工作表
10-08
在我们日常生活中，时时用到合并多个工作簿为一个工作表，这里利用VBA简单实现。希望对大家有点用
VBA将excel中的多个工作表sheet合成一个工作表，多个工作簿的多个工作表合并为一个工作簿
tanghuan0827的博客
10-13 7955
VBA将excel中的多个工作表sheet合成一个工作表，多个工作簿的多个工作表合并为一个工作簿
写个VBA程序 将多个工作表合并到一个工作表中
weixin_42612804的博客
01-08 637
好的，这是一个将多个工作表合并到一个工作表中的 VBA 程序： Sub MergeWorksheets() Dim ws As Worksheet, wsTemp As Worksheet Dim lRow As Long ' 设置当前工作簿为目标工作簿 Set wsTemp = ThisWorkbook.Worksheets("目标工作表") ' 在目标工作表最后一行后面添加一...
Excel VBA 合并多个工作簿到一个工作簿的多个Sheet
M10150831的博客
04-30 3440
可以通过@indirect函数，引用各个Sheet中单元格内容。点击：开发工具-Visual Basic-插入模块。复制如下代码到模块窗口。
Excel·VBA合并工作簿
hhhhh_51的博客
03-29 2万+
1，合并文件夹下所有工作簿； 2，合并工作簿中所有工作表； 3，合并文件夹下所有工作簿中所有工作表； 4，合并文件夹下所有工作簿中同名工作表； 5，合并文件夹下所有工作簿中所有工作表，横向汇总数据； 6，合并子文件夹所有工作簿中所有工作表，纵向汇总数据； 7，合并子文件夹同名工作簿中同名工作表，纵向汇总数据；
VBA代码实例---多个工作表内容合并到一个工作表中
热门推荐
半个馒头
04-18 2万+
这是一个常用而且经典的例子：根据内容，把N个工作表中的内容，合并到一个工作表中； ¤主要知识点¤ 1、工作表选取和内容的复制； 2、IF分支语句和For循环语句的使用； ¤代码实例¤ Option Explicit Sub 合并工作表() Dim i As Integer Dim x As Integer, y As Integer Dim
VBA合并多个excel表
是茗夏啊
12-22 1295
Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String flag = 0 Application.ScreenUpdating ...
excel中利用vba合并多个sheet页和合并多个excel文档
久伴博客
07-05 7700
合并sheet页, 合并excel文档, 合并工作表, 合并工作簿合并多个工作表 仅适用于每个sheet的第一行是数据头，数据从第二行开始。excel合并多个sheetApplication.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name &lt;&gt; ActiveSheet.Name Then ...
Excel VBA合并不同工作簿所有工作表到一张工作表
最新发布
10-12
在Excel VBA中，如果你想把不同工作簿的所有工作表合并到一个工作簿中的指定工作表，可以使用`Worksheets.Add`和`Range.Copy`方法。下面是一个基本的示例，假设你想合并名为"Sheet1"的所有工作簿，并将它们添加到当前工作簿的最后一个工作表之后： ```vba Sub MergeAllSheetsFromOtherWorkbooks() Dim wbTarget As Workbook Dim wbSource As Workbook Dim wsSource As Worksheet Dim wsTarget As Worksheet Dim lastRow As Long '设置目标工作簿和工作表 Set wbTarget = ThisWorkbook '当前工作簿 Set wsTarget = wbTarget.Worksheets.Add(After:=wbTarget.Worksheets(wbTarget.Worksheets.Count)) '新建一个工作表作为目标 '遍历所有打开的工作簿 For Each wbSource In Application.Workbooks If wbSource.Name <> ThisWorkbook.Name Then '排除当前工作簿 For Each wsSource In wbSource.Worksheets '遍历每个工作簿的每个工作表 If wsSource.Name = "Sheet1" Then '只考虑名称为"Sheet1"的工作表 '获取源工作表的最后一行 lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row '复制数据到目标工作表 wsTarget.Range("A" & wsTarget.Cells.Count).End(xlUp).Offset(1).Resize(lastRow, wsSource.Columns.Count).Value = wsSource.Range("A1").CurrentRegion.Value End If Next wsSource End If Next wbSource MsgBox "所有工作簿的Sheet1已合并至当前工作簿的最新工作表", vbInformation End Sub ``` 运行此宏后，所有符合条件的工作簿的Sheet1会被合并到新的工作表中。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值