excel中将B列中相同的数据？？？？？请看详细描述

来源：百度知道 编辑：UC知道 时间：2024/06/17 06:20:52
我想在C列中体现出=》B列中数据相同的A列中的加总。》
55.7A201.MCEG 84.T3906.A11 55.7A201.MCEG55.7A201.MCJG
55.7A201.MCJG 84.T3906.A11 55.7A201.MCEG55.7A201.MCJG
55.7A201.MCEG 84.T3904.C11 55.7A201.MCEG55.7A201.MCJG
55.7A201.MCJG 84.T3904.C11 55.7A201.MCEG55.7A201.MCJG
55.7A201.MCEG 84.T3906.A11 55.7A201.MCEG55.7A201.MCJG55.7A202.MCIG55.7A702.M01G
55.7A201.MCJG 84.T3906.A11 55.7A201.MCEG55.7A201.MCJG55.7A202.MCIG55.7A702.M01G
55.7A202.MCIG 84.T3906.A11 55.7A201.MCEG55.7A201.MCJG55.7A202.MCIG55.7A702.M01G
55.7A702.M01G 84.T3906.A11 55.7A201.MCEG55.7A201.MCJG55.7A202.MCIG55.7A702.M01G
55.7A201.MCEG 84.T3904.C11 55.7A201.MCEG55.7A201.MCJG55.7A202.MCIG55.7A702.M01G
55.7A201.MCJG 84.T3904.C11 55.7A201.MCEG55.7A201.MCJG55.7A202.MCIG55.7A702.M01G
55.7A202.MCIG 84.T3904.C11 55.7A201.MCEG55.7A201.MCJG55.7A202.MCIG55.7A702.M01G
55.7A702.M01G 84.T3904.C11 55.7A201.MCEG55.7A201.MCJG55.7A202.MCIG55.7A702.M01G

可用如下VBA程序实现：
Sub 加总()
Dim rag1 As Range, rag2 As Range
Dim a As String
Range("C:C").ClearContents '清空C列
For Each rag1 In Range("B:B")
If rag1.Value = "" Then Exit For
a = ""
For Each rag2 In Range("B:B")
If rag2.Value = "" Then Exit For
If rag2.Value = rag1.Value Then
a = a & rag2.Offset(0, -1).Value
End If
Next
rag1.Offset(0, 1).Value = a
Next
End Sub

问题抽象，方法推荐：数据--分类汇总

你就不能把你第一句话说得明白一点，一句话说不清楚就分成几句话嘛，尤其是最后一个词：加总，自创的？

用sumif函数公式最简单。

在excel表中，比较B列和A列的数据，把B列中与A列不相同的数据在C列表示出来。 在excel表中，比较B列和A列的数据，把B列中与A列不相同的数据在C列表示出来,再在A和B列中删除相同的数据 excel中筛选出同列中相同的数据 Excel在同一列中怎样排除相同的数据？ 在EXCEL表格中,A列有一列数据,B列也有一列数据,若要把A列与B列中数据相同的筛选出来,应怎样操作 Excel中 如何统计相同 行/列 中相同数据的个数 excel中，怎样用函数来实现B列数据取自A列数据的后三位？ excel中，如何显示B列中与A列相同名称的项目？？ excel怎样查找A列数据和B列数据中不重复的数据，并且显示在C列？ 在excel表中，比较B列和A列的数据，把A列中在B列包含的数据在C列中表示出来