大家好，我是陈小虾，是一名自动化方向的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数据表格
 
 
可以看到此数据中有重复姓名
 
 
然后复制B列数据粘贴到E列中
 
 
点击数据选择删除重复项
 
 
选中“以当前选定区域排序”点击删除重复项
 
 
选择数据包含标题,再点击确定。
 
 
弹出删除重复项对话框，点击确定E列就得到不重复的数据。
 
 
接着双击D2输入=SUMIF(B$2:B$9,E2,D$2:D$9) 回车，下拉单元格右下角填充。
 
 
9
 得到如下图的计算结果
 

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

 
操作步骤：
 
1、首先来看一下原始数据：
 
A列是姓名，有重复的项目。B列是数量。要求求得A列每个人的数量合计。
 

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

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

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

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

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

 

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

 

 
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中合并同类项数据，也就是去除某字段数据的重复值，然后将对应的数据求和。
 
    
 
    
 
     

      
     
 
     

       
     
 
    
 
   
 
  
 
 
 
 
 
  
工具/原料
 
  

    
  
 
  
 
   
 
     
 
      
Excel
 
     
 
  
 
 
 
 
 
  
操作步骤：
 
  

    
  
 
  

   
 
     

       
     
 
     
 
      
首先来看一下原始数据：
 
      
A列是姓名，有重复的项目。B列是数量。要求求得A列每个人的数量合计。
 
     
 
     
 
      

       
      
 
     
 
 
     

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

       
      
 
     
 
 
     

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

       
      
 
     
 
 
     

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

       
      
 
     
 
 
     

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

       
      
 
     
 
 
     

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

       
      
 
      

       
      
 
     
 
 
     

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

       
      
 
      

       
      
 
     
 
 
     

      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