精华内容
下载资源
问答
  • 1.去除重复项 2.自动生成下拉菜单 3.重复自动求和 附上代码: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim d1 As Object, d2 As Object, d3 As Object, arr, i As Integer, k, brr, ...

    大家好,我是陈小虾,是一名自动化方向的IT民工。写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长。但功能说明:由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教!微信公众号:万能的Excel 

    功能说明:

    工作中经常需要从数据库中统计某一项的全部数据,人工统计不仅繁琐而且容易出错

    本工作表使用VBA实现了如下功能:

    1、实时统计重复项

    2、重复项数据自动求和

    3、生成下拉菜单随时调用

    附上代码:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Dim d1 As Object, d2 As Object, d3 As Object, arr, i As Integer, k, brr, w1 As String, j%
        
        Set d1 = CreateObject("scripting.dictionary")
        Set d2 = CreateObject("scripting.dictionary")
        Set d3 = CreateObject("scripting.dictionary")
            arr = Range("a1").CurrentRegion
            For i = 2 To UBound(arr)
                If Len(arr(i, 3)) Then
                    If d1(arr(i, 2)) = "" Then  '如果是否有数据
                        d1(arr(i, 2)) = arr(i, 3) '如果该关键字第一次出现
                        d2(arr(i, 2)) = arr(i, 4)
                        d3(arr(i, 2)) = arr(i, 5)
                        'MsgBox "关键字" & arr(i, 1) & Chr(13) & "条目" & d(arr(i, 1))
                    Else '当该关键字出现了第二次以上
                        d1(arr(i, 2)) = d1(arr(i, 2)) + arr(i, 3) '将原有的值加上新出现的值保存起来
                        d2(arr(i, 2)) = d2(arr(i, 2)) + arr(i, 4)
                        d3(arr(i, 2)) = d3(arr(i, 2)) + arr(i, 5)
                        'MsgBox "关键字" & arr(i, 1) & Chr(13) & "条目" & d(arr(i, 1))
                    End If
                End If
            Next i
        
            j = Target.Row
            If Cells(j, 7) = "" Then
                For Each k In d1.keys
                    w1 = w1 & IIf(w1 <> "", ",", "")
                    w1 = w1 & k
                Next k
            
                With Cells(j, 7).Validation
                    .Delete
                    If w1 <> "" Then
                        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=w1
                        .InCellDropdown = True
                    End If
                End With
            ElseIf j > 1 Then
                Cells(j, 8) = d1(Cells(j, 7).Value)
                Cells(j, 9) = d2(Cells(j, 7).Value)
                Cells(j, 10) = d3(Cells(j, 7).Value)
            End If
            
    
    End Sub

    关注公众号:万能的Excel     并回复【自动求和】获取源文件!

    展开全文
  • 本例主要介绍如何在excel中合并同类数据,也就是去除某字段数据的重复值,然后将对应的数据求和。 工具/原料 Excel 操作步骤: 首先来看一下原始数据: A...

    本例主要介绍如何在excel中合并同类项数据,也就是去除某字段数据的重复值,然后将对应的数据求和。

    excel合并同类项(去除重复项)数据并求和
     

    工具/原料

     
    • Excel

    操作步骤:

     
    1.  

      首先来看一下原始数据:

      A列是姓名,有重复的项目。B列是数量。要求求得A列每个人的数量合计。

      excel合并同类项(去除重复项)数据并求和
    2.  

      首先,复制A列数据,粘贴到C列。

      excel合并同类项(去除重复项)数据并求和
    3.  

      选中C列数据,选择【数据】-【删除重复项】。

      excel合并同类项(去除重复项)数据并求和
    4.  

      选择【以当前选定区域排序】,然后点击【删除重复项】。

      excel合并同类项(去除重复项)数据并求和
    5.  

      因为C列包含数据表头“姓名”,因此选择【数据包含标题】。

      excel合并同类项(去除重复项)数据并求和
    6.  

      点击【确定】按钮后将删除C列数据的重复项,留下不重复结果如下图:

      excel合并同类项(去除重复项)数据并求和
      excel合并同类项(去除重复项)数据并求和
    7.  

      双击D2,输入公式=SUMIF(A$2:A$7,C2,B$2:B$7),回车并下拉填充公式就得到了想要的结果。

      excel合并同类项(去除重复项)数据并求和
      excel合并同类项(去除重复项)数据并求和
    8. 8

      SUMIF函数的用法简介:

      SUMIF函数的语法是这样的:=SUMIF(条件区域,条件,求和数据区域)

      举例来说=SUMIF(A$2:A$7,C2,B$2:B$7),就是求A$2:A$7区域里等于C2单元格的值对应B$2:B$7数据的合计。

       

    转载于:https://www.cnblogs.com/janicemvidal/p/8615459.html

    展开全文
  • 本例主要介绍如何在excel中合并同类数据,也就是去除某字段数据的重复值,然后将对应的数据求和,方法很简单,也很实用,对于经常使用excel的人员,能大量减少工作量提高工作效率。操作步骤:1、首先来看一下原始...

    本例主要介绍如何在excel中合并同类项数据,也就是去除某字段数据的重复值,然后将对应的数据求和,方法很简单,也很实用,对于经常使用excel的人员,能大量减少工作量提高工作效率。

    0aafc27513079609d50fbc02e5a97c17.png

    操作步骤:

    1、首先来看一下原始数据:

    A列是姓名,有重复的项目。B列是数量。要求求得A列每个人的数量合计。

    2feaa04d66620a8b879cbbb8506da241.png

    2、首先,复制A列数据,粘贴到C列。

    1a3564c6b8472d8ed05f0a16d495b10b.png

    3、选中C列数据,选择【数据】-【删除重复项】。

    ae333e9e174db3f3100cbd2bcad73387.png

    4、选择【以当前选定区域排序】,然后点击【删除重复项】。

    fc7b683c963226ad5ce9091bb697b337.png

    5、因为C列包含数据表头“姓名”,因此选择【数据包含标题】。

    3e9b921a6c4e947f346d010a611bda21.png

    6、点击【确定】按钮后将删除C列数据的重复项,留下不重复结果如下图:

    d87e045a90be9dfa03327be6152d0a35.png

    00500e508b36e5c7f1a95d0fecf46a9d.png

    7、双击D2,输入公式=SUMIF(A$2:A$7,C2,B$2:B$7),回车并下拉填充公式就得到了想要的结果。

    37bc07451f8007930e443839023df0b9.png

    a0eb9b1a5d1a67ff8816532bcc31b039.png

    8、SUMIF函数的用法简介:

    SUMIF函数的语法是这样的:=SUMIF(条件区域,条件,求和数据区域)

    举例来说=SUMIF(A$2:A$7,C2,B$2:B$7),就是求A$2:A$7区域里等于C2单元格的值对应B$2:B$7数据的合计。

    以上就是如何在excel合并同类项数据并求和(去除重复项)的方法,希望对大家有所帮助,谢谢大家阅读本篇文章!

    展开全文
  • 打开excel数据表格 可以看到此数据中有重复姓名 ...弹出删除重复项对话框,点击确定E列就得到不重复数据。 接着双击D2输入=SUMIF(B$2:B$9,E2,D$2:D$9) 回车,下拉单元格右下角填充。 9 得到如下图的计算结果 ...

    打开excel数据表格

    excel怎么合并同类项数据并求和(去除重复项)

    可以看到此数据中有重复姓名

    excel怎么合并同类项数据并求和(去除重复项)

    然后复制B列数据粘贴到E列中

    excel怎么合并同类项数据并求和(去除重复项)

    点击数据选择删除重复项

    excel怎么合并同类项数据并求和(去除重复项)

    选中“以当前选定区域排序”点击删除重复项

    excel怎么合并同类项数据并求和(去除重复项)

    选择数据包含标题,再点击确定。

    excel怎么合并同类项数据并求和(去除重复项)

    弹出删除重复项对话框,点击确定E列就得到不重复的数据。

    excel怎么合并同类项数据并求和(去除重复项)

    接着双击D2输入=SUMIF(B$2:B$9,E2,D$2:D$9) 回车,下拉单元格右下角填充。

    excel怎么合并同类项数据并求和(去除重复项)

    9
    得到如下图的计算结果

    excel怎么合并同类项数据并求和(去除重复项)

    展开全文
  • Stream去除重复求和

    万次阅读 2018-02-27 21:27:16
    但是distinct()方法只能去除List中重复的对象,不能对根据对象中某个属性相同了去重复。比如List&lt;Person&gt;,我想去除名字重复的人,然后统计年龄总和。Steam提供的distinct()方法是实现不了的。2.但是...
  • 可以看到A列已经将【姓名】去除重复值,相应的B列【数量】已经合并求和了。 为了增强数据的可读性,我们可以将其图形化。 选中数据透视表的任意一个单元格,选择【选项】-【数据透视图】。 根据实际数据...
  • 相将需统计的物料排序,列好 将数据整体(不含待求和数据)复制到与原数据...条件:删除重复项时所参考的条件,此为PN编码;求和数据区域:原表格中需求和的那一列数据 例: 此表格中填写 =SUMIF(B3:G371,H373:H52...
  • list集合对象去除重复,值相加求和

    千次阅读 2020-05-08 15:34:22
    list集合对象去除重复,值相加求和功能快捷键合理的创建标题,有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定内容居中、居左、居右SmartyPants创建...
  • 比如下面的表格就一个月累计数据,那么,如果想知道整个表格中去除重复的人名后,一共有多少个销售人员,我们可以通过Sum结合Countif的数组方法求得该结果。函数公式在E2单元格输入公式【{=SUM(1/COUNTIF($B$2:$B$13...
  • 目前来看,Excel可以实现单行删除重复项,但是在Power Bi中,无法实现,只是可以全部删重(就像Excel选中全部再删重一样的效果) 过程: 众所周知:Excel的删除重复项是这样的: 1、选中某一列删重 (这一列...
  • 这是执行前和执行后想要的效果 以下是用Sql语句实现的代码: select goodsno, goodsspec,SUM([count]) as count from goods group by goodsno ,goodsspec 下面这个则是用Linq实现的代码: ... ...
  • 在oracle实际应用过程中,可能会遇到没有设置主键的表,会出现表的数据重复的情况,比如误操作重复执行插值语句且直接commit,这时候就需要删除重复数据,只保留单一数据,话不多说,代码走起。 建表语句(建个简单...
  • JS 对象数组 重复id对象 求和去重

    千次阅读 2019-05-14 10:40:13
    console.log("如何将重复的数值加起来,再去除重复项"); var idArray = []; for (var i = 0; i ; i++){ idArray.push(array[i].id); } console.log("idArray json:" + JSON.stringify(idArray)); var ...
  • 开发项目的时候往往会有重复数据,如何去除重复数据呢?今天给大家分享一个简单的方法, 正常无论是用框架开发还是原生php都很少有自带的去重复的方法,基本上都需要我们自己嵌入原生sql,下面 直接给大家上源码 /...
  • Excel对相同项求和

    千次阅读 2014-06-18 12:40:37
    Excel对相同项求和
  • PowerQuery powerBi包含什么 PowerQuery PowerPivot PowerView ... 数据菜单下的——获取和转换 导入数据 从txt 从csv 从Access 从excel 字符集 从网站 转换数据 进去query编辑器 ...
  • 常用SQL语句实例(含过滤及删除重复数据、导入导出数据等)
  • 创建数据表 CREATE TABLE [dbo].[ks](  [id] [int] IDENTITY(1,1) NOT NULL,  [kucun] [varchar](50) NULL,  [kuncunshu] [int] NULL,
  • CRM中通过QueryExpression查询出了一个EntityCollection集,但有时会存在重复数据,QueryExpression中有个属性distinct,只要设置为true就能过滤重复数据,但这个属性针对的数据重复是所有的列都相同。...
  • 因为每次考试的名次排序不一,无法直接相加,就需要把姓名去重复值并按姓名求和各次成绩,具体方法如下:一、把学生姓名单摘出来(去重复项数据)1、我们先把四次成绩按姓名和分数统一弄成两列2、把所有的姓名一列重新...
  • 在处理dataframe中的字段名是,发现有些字段名在处理后是重复,于是新定义了策略,对这些相同列名的字段进行求和合并 summing the duplicated columns 代码实现 #Hanle Duplicates from operator import add from ...
  • 如题,默认的 excel 数据透视表的值选项里只有计数、求和等简单直接的计算方法,但是如果是重复值计数,就爱莫能助了。 网上有很多方法,辅助列、sql、PowerPivot插件,都太麻烦了,我还是比较懒。最后发现,其实这...
  • s Problem(数论) 链接: https://uva.onlinejudge.org/index.php?option=com_onlinejudge&Itemid=8&page=show_problem& ... 随机推荐 java去处重复输出 去除重复输出问题: 数组:大量相同数据类型的集合 数据类型[ ] ...
  • 起因:因领导层需要将电商平台利润核算自动化,原始数据不可以动,所以需要用到公式 (PS:其实所谓自动化不是Python / VBA办公自动化,就是嵌套一堆公式,然后每月更新电商后台基础数据,就可以出来利润结果~) ...
  • /********************************************************* * > File Name: test3.c ... Program:将一个一维数组中出现的所有数字求和输出,删除重复出现的字母 ********************************************
  • SELECT sum(DISTINCT case when t1.id then t1.amount else 0 end ) as t1sumAmount from table1 t1 left join table2 t2 on t1.id = t2...如果t1对应多个t2,会出现t1的数量重复相加的情况,用上面的方式可去除重复
  • 要求: ... 2、将同一个ID号的所有都相加求和 附上代码: Sub test1() Dim d1 As Object, d2 As Object, arr, i As Integer, k, brr Set d1 = CreateObject("scripting.dictionary") ...
  • 本人是在一家零售行业工作,所出的教程,都是我日常工作中遇到的 复杂而大量重复的工作 我用python代替去完成它,都是原创内容,非粘贴复制,如果我的文章能够帮助到大家,希望帮忙点个关注。当然,如果有很多错别字...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 37,829
精华内容 15,131
关键字:

删除重复项数据求和