excel,如果前两格是三个数中的两个,则第三格等于第三个数
excel,如果前两格是三个数中的两个,则第三格等于第三个数
例如1,3,5,这三个数,A1=1,A2=3,那么A3=5,或者A1=3,A2=5,那么A3=1,或者A1=1,A2=5,那么A3=3,也就是任意顺序中,只要前两格满足为三个数中任意两个数,那么第三格=第三个数.
请教这个公式如何写.问题补充：
那如果我有1-10共10个数,A1,A2出现的数字是随机出现的,除（1,3,5）这个组合外,还有（2,4,6）等组合,又该如何写公式呢?
一共是5组数据,即（1,3,5,）（2,4,6）（7,9,1）（8,0,4）（5,7,9）A1,A2出现的数字是随机出现的,如果A1,A2同时满足一组数据中的任意两个数字,那么A3=第3个数据.
该如何写公式呢?
例如1,3,5,这三个数,A1=1,A2=3,那么A3=5,或者A1=3,A2=5,那么A3=1,或者A1=1,A2=5,那么A3=3,也就是任意顺序中,只要前两格满足为三个数中任意两个数,那么第三格=第三个数.
请教这个公式如何写.问题补充：
那如果我有1-10共10个数,A1,A2出现的数字是随机出现的,除（1,3,5）这个组合外,还有（2,4,6）等组合,又该如何写公式呢?
一共是5组数据,即（1,3,5,）（2,4,6）（7,9,1）（8,0,4）（5,7,9）A1,A2出现的数字是随机出现的,如果A1,A2同时满足一组数据中的任意两个数字,那么A3=第3个数据.
该如何写公式呢?
赞 wang828150 幼苗
共回答了19个问题采纳率：78.9% 举报
这个比较难,我写个VBA函数给你
----------------------------------------
Public Function iFun(iRng1 As Range,iRng2 As Range)
Application.Volatile
If iRng1.Count 1 Or iRng2.Count 1 Then iFun = "#错误":Exit Function
Dim iArr,iNum,i
iArr = Split("135|246|179|048|579","|")
For i = LBound(iArr) To UBound(iArr)
iNum = Replace(Replace(iArr(i),iRng1.Value,""),iRng2.Value,"")
If Len(iNum) = 1 Then iFun = iNum * 1:Exit Function
Next
iFun = "#无匹配"
End Function
---------------
打开表格,按ALT+F11,打开代码窗口,在左边工程窗口内空白处右键,插入,模块,右边会新打开一个代码窗,将上面的代码复制到其中
返回sheet表,在A1、A2（可以是其他任意两个单元格）输入两个数字,A3输入公式：
=ifun(A1,A2)
A3将会得出结果
-----------------------
写代码很辛苦,请加分
----------------------------------------
Public Function iFun(iRng1 As Range,iRng2 As Range)
Application.Volatile
If iRng1.Count 1 Or iRng2.Count 1 Then iFun = "#错误":Exit Function
Dim iArr,iNum,i
iArr = Split("135|246|179|048|579","|")
For i = LBound(iArr) To UBound(iArr)
iNum = Replace(Replace(iArr(i),iRng1.Value,""),iRng2.Value,"")
If Len(iNum) = 1 Then iFun = iNum * 1:Exit Function
Next
iFun = "#无匹配"
End Function
---------------
打开表格,按ALT+F11,打开代码窗口,在左边工程窗口内空白处右键,插入,模块,右边会新打开一个代码窗,将上面的代码复制到其中
返回sheet表,在A1、A2（可以是其他任意两个单元格）输入两个数字,A3输入公式：
=ifun(A1,A2)
A3将会得出结果
-----------------------
写代码很辛苦,请加分
1年前
3
可能相似的问题
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答