作者：乔山办公网日期：
返回目录：excel表格制作
VBA??
Function M(mA, mB As String) As String
Dim Arr
Arr = Split(mB, ",")
For i = LBound(Arr) To UBound(Arr)
Arr(i) = Arr(i) - mA
Next
M = Join(Arr, ",")
End Function
使用知形道式专属
=M(a1,a2)
首先，得有一个表，提供每种产品来的品名、单价、进价等信息以供查询
这里假设该表为Sheet2，A列产品代码，B列品名，C列单价，D列进价
填好一切相关数据
现在在上图表（假设是自Sheet1）中的
B2输入以下公式zd
=if(A2="","",vlookup(A2,Sheet2!$A$2:$D$65536,2,))
D2输入以下公式
=if(A2="","",vlookup(A2,Sheet2!$A$2:$D$65536,3,))
F2输入以下公式
=if(A2="","",vlookup(A2,Sheet2!$A$2:$D$65536,4,))
E2输入以下公式
=if(or(A2="",C2=""),"",C2*D2)
G2输入以下公式
=if(or(A2="",C2=""),"",C2*F2)
H2填入以下公式
=if(or(A2="",C2=""),"",E2-G2)
完成。
=IF(EXACT("我zhidao",B1),"1200",IF(EXACT("你",B1),"1800"))
文本一定要加英文双引号。
但是如果有多重可能性，用IFEXACT可能没法用了版。可以用其他高效率的函数权，比如
=VLOOKUP(B1,{"我",1200;"你",1800;"他",600},2,0)
在B表（Sheet2）的B2单元格中输入公式
=INDEX(Sheet1!B:B,MATCH(D2,Sheet1!D:D,)
回车确认后下拉填充。