VBA--实例1.3--数据分类汇总

最新推荐文章于 2025-05-30 10:16:54 发布
最新推荐文章于 2025-05-30 10:16:54 发布
阅读量6.5k 收藏 25
点赞数 2
CC 4.0 BY-SA版权
分类专栏： ExcelVBA
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/weixin_43681860/article/details/95188284
本篇博客介绍了一个使用VBA进行数据分类和汇总的实际案例，通过示例代码展示了如何实现这一功能。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

实例

数据分类汇总

目标

 

以班级为筛选条件将数据条分类，并保存到新工作簿中

 
demo分解
  1. 创建目标sheet
  2. 根据筛选条件逐一汇总到目标sheet
  3. move sheet 到新的工作簿
文件 不知怎们上传demo文件知道的留言一下
技术思辨
  1. 数据copy时候因为目标变化较多，range()的activeSheet或是目标Sheet不要省略
  2. 在选择首个非空单元格时候，建议使用range("a655536").end(xlUp)，不要使用range("a1").end(xldown)。排除数据本身是从rows(1)或rows(2)开
最低0.47元/天 解锁文章

200万优质内容无限畅学
vba实现分类汇总功能
qq_42678477的博客
09-28 1万+
Option Explicit Sub test() Dim sht As Worksheet, rng As Range Set sht = ActiveSheet Dim i As Integer, index As Integer, subtotal As Double, dm As Variant Dim oldIndex As Integer, oldS...
VBA多工作簿中多工作表分类汇总
God_68的博客
05-13 4937
应用背景： 将某一文件夹下所有工作簿中的多张表单汇总到一个工作薄中的一张表单中 最终效果： 步骤流程： 完整代码： ========================================================================= 1、汇总当前文件夹下所有工作簿中所有sheets ========================================================================= Sub Co..
【大模型实战】3个实操案例，学会用DeepSeek做VBA开发，实现Excel自动化
最新发布
2401_85327249的博客
05-30 1281
Excel一定是每一个办公人绕不过去的坎——不论现在的AI有多牛逼、产品多有逼格，最终落到实操环节都离不开Excel。但Excel的操作本身就比较繁琐，更不用说大量重复性操作的场景，就令人很烦。 此时，我们可以借助VBA的工具，通过AI写代码的方式完成Excel自动化处理
字典多列分类汇总
03-20
字典多列分类汇总,用VBA字典数组汇总多列,字典分组汇总的写法
Excel VBA编写excel数据汇总宏命令
kendybear的博客
08-03 4064
最近刚好有需求，就研究了下VBA编程，使用excel的宏命令编写了一个数据汇总小工具，汇总指定目录下的所有excel文件seet1的数据至一个新的excel表中，设计思想如下：1、将要汇总的excel文件放置在一个“数据文件夹”中；2、遍历该“数据文件夹”中的所有excel表sheet1的数据；3、复制数据到一个新建工作簿中；4、保存工作簿并更名为“已完成”；5、最终就会看到新生成了一个“已完成.xlsx”。......
使用vba操作工作表，实现报表汇总
qq_42539251的博客
07-07 3462
表有哪些方法和属性？ 方法也可以理解为动作，表的方法有select，add, delete, copy，表的属性有count,name 假设工作簿中按顺序新建3张表叫1月和2月和3 月。如何切换到第2张表？ Sheet2.select //sheet2是表的默认名称。重命名只是给sheet2起一个别名 Sheets(2).select //sheets(2)指工作簿的第2张表 Sheets(“2月”).Select // Sheets(“2月”)指重命名为2月的表 如何知道工作簿中有多少张表？
EXCEL通过VBA字典快速分类求和
码猩的博客
03-29 1622
【代码】EXCEL通过VBA字典快速分类求和。
Excel+VBA典型实例大全：通过368个例子掌握 第1部分
07-30
Excel+VBA典型实例大全：通过368个例子掌握 第1部分
EXCEL VBA项目源代码（多表操作的包括外部导入txt文件，查询，分类汇总，写出）
08-21
我给公司客服编写的EXCEL VBA项目源代码（多表操作的包括外部导入txt文件，查询，分类汇总，写出）
VBA数据汇总
01-05
利用VBA处理文件汇总，减少人工统计带来的繁杂工作，提高效率
3分钟写个VBA：Excel工作簿所有子表数据一键汇总
zhuxiao5的博客
12-07 4593
今天同事问我，他要汇总一个工作簿里面十几张子表里面的数据到同工作簿的汇总表里面，怎么操作比较快？然后我就想到了VBA，3分钟给他写（录）了一个宏，一键完成所有数据汇总。所以今天我就分享这个...
使用VBA字典，进行数据分类汇总
ROF
12-19 2073
使用VBA字典，进行数据分类汇总。
VBA-分类汇总
weixin_30732487的博客
06-02 694
Sub 分页小计()If ActiveSheet.ProtectContents Then MsgBox "工作表已保护,本程序拒绝执行！", 64, "提示": Exit SubDim columm As String, colunn As String, Title_Rows As Byte, EndRow As Long, FenYeFu_Row As Long, XiaoJiRow...
汇总文件数据 VBA
weixin_30500105的博客
06-10 108
1读取30个文件的数据信息 2根据4个key值，判断累计数据 3做sum ，avg Sub 月汇总() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim num As Long Application.ScreenUpdating = False ...
VBA用字典实现分类汇总（一）
05-09 8822
VBA中字典的每一个key对应一个唯一的item，只要指定key的值，就可以马上返回其对应的item，利用字典这一特性可以实现快速的分类汇总。分类汇总可以分以下四种情况： 1、单条件单列汇总，如求商品A的总销量。 思路： 通过字典中key的唯一性进行汇总，即 字典d（key）=d（key）+销量 若key不存在，字典中增加新的关键字记录； 右key已存在，在原有item基础上加上新的销量。 2、单条件多列汇总，如求商品A的总销量和总金额。 思路： 每个要汇总的列做一个字典，如上列，声明
excel 分类汇总函数
weixin_33958585的博客
04-11 278
1、先用数组公式对单元格区域 B3:B39 ，进行提取去重复非空调单元格信息。单元格B52数组公式： =INDIRECT(TEXT(MIN(IF((COUNTIF(B$51:B51,B$3:B$39)=0)*(B$3:B$39<>""),ROW($3:$39)*100+COLUMN(B1),4^6)),"R0C00"),)&"" 复制代码 往下拉数组...
VBA中的一些代码
greystar的专栏
10-20 1806
 让OFFICE能识别文档中的文字如果要让此程序能运行，要添加EXCEL的引用，只有EXCEL才有此功能Sub SpeakIt()    Set x = New Excel.Application    x.Speech.Speak (ActiveWindow.Selection)    Set x = NothingEnd Sub让PPT能随机出题。Slides 一个代表指定演示文稿中所有幻
VBA用字典实现分类汇总（二）
05-16 4684
在VBA中，字典是一个很重要的概念，有点你我们生活中用到的字典，（你可以通过pinyin或部首，查找到某个字），VBA中的字典，可以根据一个关键字（key）查询一个值（item），且关键字（key）是唯一的，不能重复，但是值（item）可以重复。利用字典这一特性唯一关键字---值的特性，可以快速进行分类汇总。 上一篇，讲了VBA中运用字典进行分类汇总的四种情况 1）单条件单列汇总 2）单条件多列汇总 3）多条件单列汇总 4）多条件多列汇总 但是前面这四种都是针对单一对象（如商品A或业务员张三商品
Excel·VBA多行多列数据简单汇总
热门推荐
hhhhh_51的博客
04-13 1万+
1，多行多列数据简单汇总；2，数据汇总函数化、通用化；3，工作簿汇总所有工作表数据；4，字典嵌套字典汇总数据
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值