示例

如图所示，该工作簿中包含若干个工作表，工作表中为各个学校书籍销售明细。如何使用VBA按其工作表中的图书名称汇总各种图书的数量？

示例数据表

序号	图书名称	版别	年版	定价	适读范围	订数	码洋
431	马克思的故事	北方妇女儿童	2010/5/10	12.8	中小学	3	38.4
432	项羽的故事	北方妇女儿童	2010/5/9	12.8	中小学	3	38.4
433	姚明的故事	北方妇女儿童	2010/5/7	12.8	中小学	3	38.4
434	李白的故事	北方妇女儿童	2010/5/11	12.8	中小学	3	38.4
435	孙子的故事	北方妇女儿童	2010/5/6	12.8	中小学	3	38.4
436	孔子的故事	北方妇女儿童	2010/5/12	12.8	中小学	3	38.4
437	海伦·凯勒的故事	北方妇女儿童	2010/5/8	12.8	中小学	3	38.4
438	诺贝尔的故事	北方妇女儿童	2010/3/20	12.8	中小学	3	38.4
439	秦始皇的故事	北方妇女儿童	2010/3/21	12.8	中小学	3	38.4
440	凡尔纳的故事	北方妇女儿童	2010/3/15	12.8	中小学	3	38.4

序号	图书名称	版别	年版	定价	适读范围	数量	码洋
1	创新与超越	沪科教	2010/6/29	28	中小学	5	140
2	令人震撼的对比--中西教育比较案例观察	南方出版社	2010/6/30	39	中小学	5	195
3	王永庆的球童	南方出版社	2010/7/1	26	中小学	3	78
4	中国心绞痛	南方出版社	2010/7/1	29.8	中学	3	89.4
5	别怕！我是搭讪英文书	南方出版社	2010/7/1	32	中小学	3	96
6	假装的艺术	南方出版社	2010/10/1	25	中学	2	50
7	像艺术家一样思考	南方出版社	2010/10/1	39.8	中小学	3	119.4
8	培养了不起男孩儿的300个思维游戏	南方出版社	2011/2/1	32	中小学	3	96
9	培养了不起女孩儿的300个思维游戏	南方出版社	2011/2/1	32	中小学	3	96
10	看懂世界格局的第一本书	南方出版社	2011/3/1	35	中小学	3	105

代码

使用同一个汇总表，循环遍历多个表格，在原有汇总表的基础上对单个工作表按单列汇总。

Option ExplicitSub 按单列列表汇总()Dim shtData As WorksheetDim shtSum As WorksheetDim rowSum As LongDim rowData As LongDim Rng As RangeDim sBook As StringSet shtSum = Sheets("sheet6")rowSum = 2shtSum.Range("A2:B" & Rows.Count).Clear'遍历工作表For Each shtData In Worksheets'非汇总表时If shtData.Name <> shtSum.Name Then'获取汇总表书名For rowData = 2 To shtData.Range("A1").CurrentRegion.Rows.CountsBook = shtData.Cells(rowData, "B").ValueSet Rng = shtSum.Range("A:A").Find(sBook, lookat:=xlWhole)If Rng Is Nothing ThenshtSum.Cells(rowSum, "A").Value = sBookrowSum = rowSum + 1End IfNext rowData'汇总For rowSum = 2 To shtSum.Range("A1").CurrentRegion.Rows.CountsBook = shtSum.Cells(rowSum, "A").ValueFor rowData = 2 To shtData.Range("A1").CurrentRegion.Rows.CountIf shtData.Cells(rowData, "B").Value = sBook ThenshtSum.Cells(rowSum, "B").Value = shtSum.Cells(rowSum, "B").Value + shtData.Cells(rowData, "G").ValueEnd IfNext rowDataNext rowSumEnd IfNext shtData
End Sub

Excel 2010 VBA 入门 087 数据处理之按单列汇总多个工作表相关推荐

Excel 2010 VBA 入门 093 数据处理之建立数组
目录示例代码数组的基本概念数组的声明数组的赋值与数组数据的读取 Ubound和Lbound函数获取数组的上下限 ForEach---Next循环遍历数组的注意事项计算程序运行的时间数组处 ...
Excel 2010 VBA 入门 088 数据处理之汇总列数不相等的多个工作表
目录示例代码1 合并汇总(Consolidate)方法 Array函数 Evaluate方法构造数组代码2 示例如图所示,该工作簿中有若干个工资表,由于每个月发放的工资项目不同,因而造成每个工 ...
Excel 2010 VBA 入门 077 数据处理之合计汇总
目录示例代码1 代码2 代码3 示例如图所示,该表为某公司年度销售表.如何使用VBA求出每个销售员的年度销售额合计以及公司月度销售合计? 销售员 1月 2月 3月 4月 5月 6月 7月 8月 ...
Excel 2010 VBA 入门 095 数据处理之用数组实现分列
示例如图所示,该表为某系统中导出的数据.由于该数据将原本的四列信息合并至一个单元格中,现希望利用数组对该数据进行分列,将其分为四列. 关键词;关注指数;升降幅度;升降位次小胸钢托聚拢游泳衣;12; ...
Excel 2010 VBA 入门 081 数据处理之获取不重复的数据
目录示例示例数据表代码1 去除重复值(RemoveDuplicates)方法代码2 代码3 示例如图所示,该表为某村人口登记表.现希望得知有哪些户的居民已登记,因而希望获取"户号& ...
Excel 2010 VBA 入门 086 数据处理之获取交叉查询结果表
目录示例代码交叉汇总表建立交叉汇总表的步骤建立交叉汇总表的优化示例如图所示,该表为某公司的销售数据表.现希望建立一个汇总表,按月份和商品名汇总收入,并将月份作为列标题而商品名作为行标题. ...
Excel 2010 VBA 入门 082 数据处理之对比两个表的数据
示例: 如图所示,该工作簿中有两个来自不同数据源的材料表,这两个表中的数据可能不同.如何使用VBA比较两张表的编号与数量,并建立一张对照表,分别列出两张表的不同:编号同时存在但数量不同:编号在其中一张 ...
Excel 2010 VBA 入门 076 数据处理之计算个人所得税
目录个人所得税税率表(月度综合所得,适用于2019年及以后取得的综合所得) 代码个人所得税税率表(月度综合所得,适用于2019年及以后取得的综合所得) (非居民个人工资.薪金所得,劳务报酬所得,稿 ...
Excel 2010 VBA 入门 034 创建图片批注
目录批注(Comment)对象批注的添加与删除 FiIIFormat对象 OnError语句示例: 批注(Comment)对象 Comment对象是单元格的一个属性,表示单元格的批注.Comme ...

Excel 2010 VBA 入门 087 数据处理之按单列汇总多个工作表

示例

示例数据表

代码

Excel 2010 VBA 入门 087 数据处理之按单列汇总多个工作表相关推荐

最新文章

热门文章