VBA如何统计同一类型的数据的总和

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

比如如上的数据,我现在想统计出qqq所的总和是多少? ee的总和是多少等等,现数据量小,可以考虑手动统计,那如果是上千条或上万条数据该怎么办呢,答案肯定是需要VBA了。VBA的代码如下(由于代码很简单,所以不做详述,拿去就可以用):

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

执行这段代码后,结果就出来了:

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

时间: 2024-10-02 19:29:07

VBA如何统计同一类型的数据的总和的相关文章

Caffe1——Mnist数据集创建lmdb或leveldb类型的数据

Caffe1——Mnist数据集创建lmdb或leveldb类型的数据 Leveldb和lmdb简单介绍 Caffe生成的数据分为2种格式:Lmdb和Leveldb.它们都是键/值对(Key/Value Pair)嵌入式数据库管理系统编程库.虽然lmdb的内存消耗是leveldb的1.1倍,但是lmdb的速度比leveldb快10%至15%,更重要的是lmdb允许多种训练模型同时读取同一组数据集. 因此lmdb取代了leveldb成为Caffe默认的数据集生成格式(http://blog.csd

Java中如何判断一个double类型的数据为0?

Java中如何判断一个double类型的数据为0 其实这个问题很简单,只是很多时候考虑复杂了,直接用==判断即可.下面给出测试例子: /**  * 如何判断一个double类型的数据为0  *  * @author leizhimin 2014/8/27 10:31  */ public class Test4 {     public static void main(String[] args) {         double x = 0.00000000000000000;       

C# Winform中执行post操作并获取返回的XML类型的数据

/// <summary> /// 返回指定日期的订单数据 /// </summary> /// <param name="StartDate">起始日期</param> /// <param name="EndDate">结束日期</param> /// <returns>DataTable</returns> public System.Data.DataTable

javaScript-数据类型和数据类型转换

特别声明,以下为达内科技web前端讲师张东张老师的原创笔记,未经允许,不可转于其他商用,仅供学习. 1. 什么是JavaScript:专门编写网页交互的语言 2. 什么变量:内存中存储*一个*数据的存储空间,再起一个名字 声明: 创建一个变量, var 变量名; 赋值: 将等号右边的数据保存到等号左边的变量中.变量名=值; 取值: 在任何位置使用变量名等效于直接使用变量中的值 特殊:1. 简写:var 变量名=值;——建议 ***2. 声明提前:在正式执行程序前,都会预读所有var声明的变量,集

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

客户端从服务器获取一组IList<T>类型的数据非常常见(通常从数据库中获取) 我们用NeworkComms V3来演示一下(NetworkcommsV2.x版本也同样支持) [ 使用protobuf.net序列化器] 第一步创建相关的工程文件: MessageContract中的 User类为契约类,使用protobuf.net进行序列化 写法如下: using System; using System.Collections.Generic; using System.Text; usin

VBA自定义函数参数类型不符的错误

作者:iamlaosong 1.问题提出 编程中发现一个问题,系统总是提示编译错误,ByRef 参数类型不符, 可实际上参数定义没问题,原因在哪儿呢? 2.问题环境 假定函数定义如下: Function get_kind(addr As String) As Integer ...... End Function 调用过程: Sub check_address() Dim addr, new_addr(10000) As String ...... addr = new_addr(i) ....

Caffe3——ImageNet数据集创建lmdb类型的数据

Caffe3——ImageNet数据集创建lmdb类型的数据 ImageNet数据集和cifar,mnist数据集最大的不同,就是数据量特别大:单张图片尺寸大,训练样本个数多:面对如此大的数据集,在转换成lmdb文件时:使用了很多新的类型对象. 1,动态扩容的数组“vector”,动态地添加新元素 2,pair类型数据对,用于存储成对的对象,例如存储文件名和对应标签 3,利用opencv中的图像处理函数,来读取和处理大尺寸图像 一:程序开始 由于要向imageNet数据集中设置resize和是否

svn报错“请求的名称有效 但是找不到请求的类型的数据”的解决方案之一

昨天收到同事的易信,说是svn不能用了. 由于只有他自己反映无法使用,而且,我使用svn也没有问题.因此,这事基本应该和服务没什么关系.看了一下进程,也没什么问题. [[email protected] svndata]# ps -ef|grep svn root      2298     1  0 Feb13 ?        00:00:00 svnserve -d -r /data/svndata/yunqiandai/ root      8556  8489  0 13:44 pts

向数据库中插入一个DateTime类型的数据到一个Date类型的字段中,需要转换类型。TO_DATE(&#39;{0}&#39;,&#39;YYYY-MM-DD&#39;))

需要指出的是,C#中有datetime类型,但是这个类型是包括小时,分钟,秒的.这个格式与数据库中的Date类型不符,如果将now设为datetime类型插入数据会失败. 需要通过TO_DATE('字段','YYYY-MM-DD'))转换.如下: string.Format("insert into tablename (TIME) values(TO_DATE('{0}','YYYY-MM-DD'))",now) 错误写法: string.Format("insert in