zoukankan      html  css  js  c++  java
  • VBA怎样统计同一类型的数据的总和

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

    比方如上的数据。我如今想统计出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


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


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



  • 相关阅读:
    瑞游天翼客户端win7,win8,win10
    js循环POST提交添加辅助单位
    服务器状态检测(1)
    快速切换天财商龙门店后台.VB6.0
    大批量删除农行点菜宝菜品品相和房间
    社会工程学
    你还会记得吗
    优酷爆个人数据漏洞
    win8删除无线网络其中的一项配置
    穿越火线修改成宽屏模式
  • 原文地址:https://www.cnblogs.com/mengfanrong/p/5153072.html
Copyright © 2011-2022 走看看