vba excel合并sheet并实现数据透视表

时间: 2023-12-16 13:03:12 浏览: 38
可以通过以下步骤实现VBA Excel合并sheet并实现数据透视表: 1. 开启一个新的Excel工作簿,按“Alt + F11”打开VBA编辑器; 2. 在VBA编辑器中,在“项目资源管理器”中右键单击“这个工作簿”,选择“插入” -> “模块”,然后在新建的模块中输入以下代码: ``` Sub MergeSheetsAndPivotTable() Dim ws As Worksheet, wsMaster As Worksheet Dim pt As PivotTable Dim pc As PivotCache '创建主工作表 Set wsMaster = ThisWorkbook.Sheets.Add wsMaster.Name = "Master" For Each ws In ThisWorkbook.Worksheets '跳过主工作表和空工作表 If ws.Name <> wsMaster.Name And Application.WorksheetFunction.CountA(ws.Cells) <> 0 Then '将当前工作表数据复制到主工作表 ws.UsedRange.Copy wsMaster.Cells(Rows.Count, 1).End(xlUp).Offset(1) End If Next ws '创建数据透视表 Set pc = ThisWorkbook.PivotCaches.Create(xlDatabase, wsMaster.Range("A1").CurrentRegion) Set pt = pc.CreatePivotTable(wsMaster.Cells(2, 10), "PivotTable1") '添加行字段 With pt.PivotFields("行字段") .Orientation = xlRowField .Position = 1 End With '添加列字段 With pt.PivotFields("列字段") .Orientation = xlColumnField .Position = 1 End With '添加数据字段 With pt.PivotFields("数据字段") .Orientation = xlDataField .Position = 1 .Function = xlSum .NumberFormat = "#,##0.00" End With End Sub ``` 3. 将代码中的“行字段”、“列字段”和“数据字段”替换为实际的字段名称,修改数据字段的汇总方式和数字格式; 4. 执行代码,会创建一个名为“Master”的新工作表,并将所有非空工作表中的数据复制到此工作表中,最后在新工作表中创建一个数据透视表。

相关推荐

最新推荐

recommend-type

VBA将excel数据表生成JSON文件

本文给大家汇总介绍了几种使用VBA处理EXCEL并生成JSON文件的方法和思路,非常的实用,有需要的小伙伴可以参考下。
recommend-type

VBA实现word邮件合并打印并调用系统打印机窗口

VBA实现word连接数据库实现邮件合并打印,并调用系统打印机窗口。调用的系统打印机根据返回值确定下一步执行动作。通过后台连接数据库,可去掉烦人的数据刷新提示窗口
recommend-type

VBA对excel合并、拆分

使用VBA对excel进行合并、拆分进行了完善,适合多文件,多sheet的合并,希望对大家用帮助
recommend-type

年会 抽奖 小程序 EXCEL VBA

年会 抽奖 小程序 EXCEL VBA 灵活的Excel小工具,可定制奖项名字、奖项数量和参与抽奖名单。
recommend-type

从有规律的多个sheets表里提取数据到一个新sheet里.docx

比如多个年级的课表,有固定格式,想从里面,按特定顺序提取出各个sheet的名字及课表科目 word里包括截图及vba代码
recommend-type

RTL8188FU-Linux-v5.7.4.2-36687.20200602.tar(20765).gz

REALTEK 8188FTV 8188eus 8188etv linux驱动程序稳定版本, 支持AP,STA 以及AP+STA 共存模式。 稳定支持linux4.0以上内核。
recommend-type

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
recommend-type

Redis验证与连接:安装成功验证技巧

![Redis从入门到精通](https://img-blog.csdnimg.cn/6f39d0a2adc3456b96e804eb45032480.png) # 1. Redis安装与验证** ### 2.2 Redis验证方法 Redis验证可以通过以下方法进行: - **命令行验证:** - 打开终端,输入 `redis-cli` 命令进入 Redis 命令行。 - 输入 `ping` 命令,如果返回 "PONG",则表示 Redis 正在运行。 - **客户端验证:** - 使用 Redis 客户端(如 RedisInsight)连接到 Redis 服务器。
recommend-type

3、自定义一个函数int compareStr(char *p1, char *p2),实现两个字符串的比较。相等返回0,大于返回1,小于返回0;编写主函数main()来调用自定义函数完成测试。

下面是自定义的 `compareStr` 函数的代码实现: ```c #include <stdio.h> int compareStr(char *p1, char *p2) { while (*p1 && *p2 && (*p1 == *p2)) { p1++; p2++; } return (*p1 > *p2) - (*p1 < *p2); } int main() { char str1[100], str2[100]; int result; printf("请输入第一个字符串:");
recommend-type

c++校园超市商品信息管理系统课程设计说明书(含源代码) (2).pdf

校园超市商品信息管理系统课程设计旨在帮助学生深入理解程序设计的基础知识,同时锻炼他们的实际操作能力。通过设计和实现一个校园超市商品信息管理系统,学生掌握了如何利用计算机科学与技术知识解决实际问题的能力。在课程设计过程中,学生需要对超市商品和销售员的关系进行有效管理,使系统功能更全面、实用,从而提高用户体验和便利性。 学生在课程设计过程中展现了积极的学习态度和纪律,没有缺勤情况,演示过程流畅且作品具有很强的使用价值。设计报告完整详细,展现了对问题的深入思考和解决能力。在答辩环节中,学生能够自信地回答问题,展示出扎实的专业知识和逻辑思维能力。教师对学生的表现予以肯定,认为学生在课程设计中表现出色,值得称赞。 整个课程设计过程包括平时成绩、报告成绩和演示与答辩成绩三个部分,其中平时表现占比20%,报告成绩占比40%,演示与答辩成绩占比40%。通过这三个部分的综合评定,最终为学生总成绩提供参考。总评分以百分制计算,全面评估学生在课程设计中的各项表现,最终为学生提供综合评价和反馈意见。 通过校园超市商品信息管理系统课程设计,学生不仅提升了对程序设计基础知识的理解与应用能力,同时也增强了团队协作和沟通能力。这一过程旨在培养学生综合运用技术解决问题的能力,为其未来的专业发展打下坚实基础。学生在进行校园超市商品信息管理系统课程设计过程中,不仅获得了理论知识的提升,同时也锻炼了实践能力和创新思维,为其未来的职业发展奠定了坚实基础。 校园超市商品信息管理系统课程设计的目的在于促进学生对程序设计基础知识的深入理解与掌握,同时培养学生解决实际问题的能力。通过对系统功能和用户需求的全面考量,学生设计了一个实用、高效的校园超市商品信息管理系统,为用户提供了更便捷、更高效的管理和使用体验。 综上所述,校园超市商品信息管理系统课程设计是一项旨在提升学生综合能力和实践技能的重要教学活动。通过此次设计,学生不仅深化了对程序设计基础知识的理解,还培养了解决实际问题的能力和团队合作精神。这一过程将为学生未来的专业发展提供坚实基础,使其在实际工作中能够胜任更多挑战。