VBA怎样统计同一类型的数据的总和

时间:2021-11-09 08:22:39

今天是2014-11-01 是周末,忙了一周了,最终能够闲下来了。想起近期工作用到的VBA的一个场景,结合VBA的数组,所以就想试试看。结果还好。出来了。这年头,又玩起了VB了,经过多时才接受了VB的种语法风格,闲话不说,进入正题



VBA怎样统计同一类型的数据的总和

watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvdHF0aWhpaGM=/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center" alt="">

比方如上的数据。我如今想统计出qqq所的总和是多少? ee的总和是多少等等,现数据量小。能够考虑手动统计,那假设是上千条或上万条数据该怎么办呢。答案肯定是须要VBA了。VBA的代码例如以下(因为代码非常easy,所以不做详述。拿去就能够用):


Sub count_test()
Dim i As Integer
Dim arrs() As Variant
i = 1
irow = UsedRange.Rows.Count
icolumn = UsedRange.Columns.Count
ReDim Preserve arrs(1 To irow, icolumn - 1)
For j = 1 To irow Step 1
strname = Cells(j, 1)
isfind = False
k = 0
For k = 1 To irow
If arrs(k, 0) = strname Then
isfind = True
Exit For
End If
Next k
If isfind Then
arrs(k, 1) = arrs(k, 1) + Cells(j, 2)
Else
arrs(i, 0) = Cells(j, 1)
arrs(i, 1) = Cells(j, 2)
i = i + 1
End If
Next j For k = 1 To irow
If arrs(k, 0) <> "" Then
Cells(k, 4) = arrs(k, 0)
Cells(k, 5) = arrs(k, 1)
End If
Next k End Sub

运行这段代码后,结果就出来了:
VBA怎样统计同一类型的数据的总和

好了。准备关电脑,出去玩了。哈哈。。。。。

VBA怎样统计同一类型的数据的总和的更多相关文章

  1. Mysql统计每年每个月的数据——详细教程

    Mysql统计每年每个月的数据(前端页面统计图实现) 最终想实现的效果图,在这里就不多废话了,直接上效果图,由于测试数据有几个月是为0的,所以数据图看着会有点怪怪. 接下来是数据库的两个表,这里直接给 ...

  2. 向mysql中插入Date类型的数据

    先看数据库表的定义 date字段为sql.date类型.我要向其中插入指定的日期和当前日期. 一.插入当前日期 思路:先获取当前系统,在将当前系统时间转换成sql类型的时间,然后插入数据库.代码如下 ...

  3. ES数据-MySql处理Date类型的数据导入处理

    用ES的小伙伴们,相信大家都遇到过Mapping处理Date类型的数据头疼问题吧. 不用头疼了,我来给你提供一种解决方案: 1.Maping定义为: {  "mappings": ...

  4. NetworkComms V3 使用TCP通信传递IList&lt&semi;T&gt&semi;类型的数据

    客户端从服务器获取一组IList<T>类型的数据非常常见(通常从数据库中获取) 我们用NeworkComms V3来演示一下(NetworkcommsV2.x版本也同样支持) [ 使用pr ...

  5. 向数据库中插入一个DateTime类型的数据到一个Date类型的字段中,需要转换类型。TO&lowbar;DATE&lpar;&&num;39&semi;&lbrace;0&rcub;&&num;39&semi;&comma;&&num;39&semi;YYYY-MM-DD&&num;39&semi;&rpar;&rpar;

    需要指出的是,C#中有datetime类型,但是这个类型是包括小时,分钟,秒的.这个格式与数据库中的Date类型不符,如果将now设为datetime类型插入数据会失败. 需要通过TO_DATE('字 ...

  6. String的类型的数据

    字符串类型的数据也是计算机基础. var box = "lc"; var box1 = 'lc1'; //不管是单引号还双引号,都必须成对出现 1.ECMAscript规定字符串是 ...

  7. js密码的校验&lpar;判断字符类型、统计字符类型个数&rpar;

    /** *判断字符类型 */ function CharMode(iN) { if (iN >= 48 && iN <= 57) //数字 return 1; if (iN ...

  8. Java中double类型的数据精确到小数点后两位

    Java中double类型的数据精确到小数点后两位 多余位四舍五入,四种方法 一: double f = 111231.5585;BigDecimal b = new BigDecimal(f); d ...

  9. 为GCD队列绑定NSObject类型上下文数据-利用&lowbar;&lowbar;bridge&lowbar;retained&lpar;transfer&rpar;转移内存管理权-备

    下面评论的好友“@Jim”给了种新的思路,就是在清除context的函数里面,用“_bridge_transfer”转换context,把context的内存管理权限重新交给ARC,这样,就不用显式调 ...

随机推荐

  1. JavaScript权威指南 - 对象

    JavaScript对象可以看作是属性的无序集合,每个属性就是一个键值对,可增可删. JavaScript中的所有事物都是对象:字符串.数字.数组.日期,等等. JavaScript对象除了可以保持自 ...

  2. js加密解密

    <script> document.write("<xmp>"); document.write(function(p,a,c,k,e,r){}(''.sp ...

  3. 面向对象php基本格式、构造、析构、访问修饰符

    <?php//面向对象//1.类//由众多的对象抽象出来的 //2.对象//一切皆对象//由类实例化出来的 //基本形式class 类名{ 成员变量 成员方法 } $对象名 =new 类名 $对 ...

  4. UITableView 学习笔记

    http://www.cnblogs.com/smileEvday/archive/2012/06/28/tableView.html UITableView学习笔记 作者:一片枫叶 看TableVi ...

  5. JS实现会动的小车

    2015-06-05怎么说呢,我想要实现的功能是很简单的,但是过程中,遇到不少问题. 我要实现的功能是页面右侧有辆小车,鼠标滚动或者拉动滚动条,小车消失,在底部点击“返还顶部”按钮后,页面缓慢向上滚动 ...

  6. SpringMVC接收多个对象

    问题背景: 要在一个表单里同时一次性提交多名乘客的个人信息到SpringMVC,前端HTML和SpringMVC Controller里该如何处理? 第1种方法:将Json对象序列化成Json字符串提 ...

  7. sqlplus连接数据库的4种方式

    本文对sqlplus连接数据库的几种方式进行大概介绍 下面是我的tnsnames.ora相关信息: /opt/oracle/product/10.1.0/db_1/network/admin/tnsn ...

  8. vlookup使用案例

    http://www.360doc.com/content/13/1119/20/9842991_330586745.shtml

  9. 省市区三级联动插件:app-jquery-cityselect&period;js

    (function ($) { $.fn.cityselect = function (options) { var settings = $.extend ({}, options); this.e ...

  10. 【Git使用】SourceTree可视化工具的安装和使用攻略

    1,下载并安装 sourceTree http://downloads.atlassian.com/software/sourcetree/windows/SourceTreeSetup_1.6.14 ...