关于EXCEL A列删除重复项并把相对于A列中B列数据求和的问题

如上图,需要把A列重复项删除,B列中数据对于A列相同型号求和然后到处数据到CD列--忘各位大神指教,有写好的宏也可以发我邮箱lee17566@foxmail.com发病毒... 如上图,需要把A列重复项删除,B列中数据对于A列相同型号求和然后到处数据到C D列--忘各位大神指教,有写好的宏也可以发我邮箱lee17566@foxmail.com

发病毒木马者自重--!!
展开
 我来答
表里如一
2012-07-19 · 知道合伙人软件行家
表里如一
知道合伙人软件行家
采纳数:2066 获赞数:11625
从事6年生产管理,期间开发了多款小软件进行数据处理和分析,后

向TA提问 私信TA
展开全部
先把你的数据排好序。就和你贴出来的这样。
然后按ALT+F11,进入VBE,假设你的表是sheet1,双击sheet1,复制下面的代码。
Sub bb()
Dim irow As Integer, icol As Integer

irow = ActiveSheet.UsedRange.Rows.Count
icol = 2

ActiveSheet.Range(ActiveSheet.Cells(1, icol + 1), ActiveSheet.Cells(2, icol + 2)).ClearContents

Application.ScreenUpdating = False

Dim k As Integer
Dim c As Range
With ActiveSheet
k = 3
.Range(.Cells(1, icol + 1), .Cells(2, icol + 2)).Value = .Range("A1:B2").Value
For Each c In .Range(.Cells(3, 1), .Cells(irow, 1))
If StrComp(c.Text, .Cells(k - 1, icol + 1).Text, vbTextCompare) <> 0 Then
.Cells(k, icol + 1).Value = c.Value
.Cells(k, icol + 2).Value = c.Offset(0, 1).Value
k = k + 1
Else
.Cells(k - 1, icol + 2).Value = .Cells(k - 1, icol + 2).Value + c.Offset(0, 1).Value
End If
Next
End With
Application.ScreenUpdating = True
End Sub

关闭VBE,回到sheet1,按ALT+F8
选择bb执行即可
liuyinde
2012-07-19 · TA获得超过6976个赞
知道大有可为答主
回答量:8937
采纳率:45%
帮助的人:1907万
展开全部
你把A列复制到C列用删除重复项功能删除重复的留下唯一有,然后在D2输入=sUMIF(A:A,C2,B:B)并向下填充公式。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
11784919
2012-07-19 · 超过29用户采纳过TA的回答
知道答主
回答量:366
采纳率:100%
帮助的人:154万
展开全部
如A列为名称张三、李四、王五等,B列为数值,如何将A列相同名称所对应的请看动画,自己照猫画虎,有问题再联系。 用透视表。 =SUMIF(A
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
only1xhb
2012-07-19 · 超过15用户采纳过TA的回答
知道答主
回答量:254
采纳率:0%
帮助的人:50.9万
展开全部
1、=IF(COUNTIF(A:A,A1)=1,A1,"重复")往下拉,如果是没有重复会显示原来的内容,如果重复就会显示重复。
2、=SUMIF(A1:A18,"此处输入你要查询的型号",B1:B18)
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
绿水青山20198
2012-07-19 · TA获得超过500个赞
知道小有建树答主
回答量:668
采纳率:100%
帮助的人:295万
展开全部
C2=IF(COUNTIF(C$1:C1,A2)<1,A2,"")
D2=IF(C2="","",SUMIF(A:A,C2,B:B))
选中C2:D2下垃填充
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(5)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式