Question

excel 中 如果a1=a2 那么c1=b1+b2 怎么写代码啊 如果不相等那么c1=b1 请问这个代码怎么写呢?

excel 中 如果a1=a2 那么c1=b1+b2 怎么写代码啊 如果不相等那么c1=b1 请问这个代码怎么写呢? 就是在excel 中 有两列数 一列是号码 一列是金额 如果有相同的号码 就把他们后面相对于的金额加起来 然后再把重复的号码去除 只保留一个号码 但金额得加上来 请问该如何写公式呢？

Answer 1

这个得有具体的表格。

c列公式：=IFERROR(INDEX($A$1:$A$23,SMALL(IF(MATCH(A1,$A$1:$A$23,)=ROW(),ROW($A$1:$A$23),6^6),ROW(A1))),"")后面d列再加上：=IF(C1="","",SUMIF($A$1:$A$23,C1,$B$1:$B$23))就行了。

追问

 

 你这个公式不行啊 只能找到第一项的啊 后面的就不计算了   我要找出的是A列中所有重复的项 然后把重复的去掉只留一个 但是要把去掉的项的对应B列的置加起来放在留下的那项后面的

Answer 2

第一个问号的公式很简单：在C1列的单元格内输入公式=if(a1=a2,b1+b2,b1)
但是你后面“就是……如何写公式呢？”这个问句，看了你的描述，按我的理解，你是想要每种号码对应的金额汇总是吗？如果是这样的话用上面那个公式效果不好不直观，建议你用“数据透视表”

excel03版在“数据→数据透视表”，excel07版在“插入→数据透视表”
1.点数据透视表
2.“区域选择”（就是选择你要统计的区域，一般会默认选中，看下区域没错就行，不放心的话你可以自己选）、放置位置（最好选新工作表）然后点下一步
3.把号码列拖到行，金额列拖到列就行了
注：03版在选择完放置位置后可以进布局拖，也可点完成后在生成的表里拖。
还要注意：列里所有单元格的格式要一致，否则不管你是用函数还是数据透视表都容易出错……

Answer 3

不用vba就能搞定,假定数据都是从第二行开始的，第一行是标题，步骤如下
1、先对a排序
2、在c2写公式 =if(a2=a3,b2+b3,if(a2=a1,"重复",b2))
3、将C2的公式下拉，填充C列
4、对C列进行筛选，将标注“重复”的删掉，剩下就是正确结果
以上是针对仅有2个数据重复的情况的，其实做个数据透视表直接搞定。

Answer 4

a=1
b=1
for i=1 to 65536
if cells(i,1)="" then exit for
if i=1 then
cells(a,3)=cells(i,2)+cells(a,3)

else
if cells(i,1)=cells(i-1,1) then
cells(a,3)=cells(i,2)+cells(a,3)
else
a=i
cells(a,3)=cells(i,2)+cells(a,3)
end if
endif

next

追问

你这段代码 写在excel 哪里哦 ？

追答

留个Q 远程给你看？

追问

569320390

Answer 5

在C1中输入
=IF(a1=a2,b1+b2,b1)

追问

多余的项怎么删除呢？

追答

他的代码不行，我自学了下VBA，保证我的code work
在你用的sheet点右键，选择代码，拷进去如下代码

Sub mysub()
For i = 1 To 500
If Cells(i, 1) = "" Then Exit For
Cells(i, 3) = Cells(i, 2)
Next
For i = 1 To 500
If Cells(i, 1) = "" Then Exit For
If i = 1 Then
Else
For j = 1 To i - 1
If Cells(i, 1) = Cells(j, 1) Then
Cells(j, 3) = Cells(i, 3) + Cells(j, 3)
Sheets("sheet1").Rows(i).Delete
End If
Next
End If

Next
End Sub

然后点菜单栏有一个向右的三角形即可~

追问

这段代码不行的
10002027481610002027488100020274881000202748810002027488100020274881000264888810002648888100026488881000264888810006630388100066303881001221858810012218588
结果就只计算了第一 二 行的