闲来没事, 有需要处理数据问题的,可以留下你的问题

如果这5个变量是任意值的话,只能用笨方法了

如果 这5个数字 不是0就是2的话,只要判断 总和就行了
if a1+a2+a3+a4+a5=8 then
总之,还可以结合这5个数字的 具体特征写代码,

若A1,B1,C1三个单元格中有至少两个单元格值为“↓”或“↑”，则D1单元格的值相对应显示为“↓”或“↑”，反之则为空值，请问有什么函数可以实现？

可以先做3列辅助列 : =IF(A1="↓",-1,IF(A1="↑",1,0))
然后会把图案 变成 -1 1 0 这3种数字
然后再用公式计算刚刚的辅助列: IF(SUM(D1:F1)<=-2,"↓",if(sum(D1:F1)=0,"","↑"))
当然可以用vba的方法

楼上的考虑 漏了, 用这个吧
Function f(a, b, c)
n1 = 0
n2 = 0
If a.Value = "↓" Then n1 = n1 + 1 Else If a.Value = "↑" Then n2 = n2 + 1
If b.Value = "↓" Then n1 = n1 + 1 Else If b.Value = "↑" Then n2 = n2 + 1
If c.Value = "↓" Then n1 = n1 + 1 Else If c.Value = "↑" Then n2 = n2 + 1
If n1 >= 2 Then
f = "↓"
ElseIf n2 >= 2 Then
f = "↑"
Else
f = ""
End If
End Function

@100楼是猪
Sub xxx()
'map
Set d = CreateObject("Scripting.Dictionary")
t = Cells(Rows.Count, 1).End(3).Row
For ii = 1 To t
If Cells(ii, 2) <> "" Then
arr = Split(Cells(ii, 2), ",")
For i = LBound(arr) To UBound(arr)
s = d(arr(i))
If s = "" Then
d(arr(i)) = Cells(ii, 1)
Else
d(arr(i)) = s + "," + Cells(ii, 1)
End If
Next i
End If
Next ii
k = d.keys
j = 0
For ii = 0 To d.Count - 1
Cells(j + 1, 5) = k(ii)
v = d(k(ii))
arr = Split(v, ",")
For i = LBound(arr) To UBound(arr)
j = j + 1
Cells(j, 6) = arr(i)
Next i
Next ii
End Sub

Sub xxx()
'map
Set d = CreateObject("Scripting.Dictionary")
fh = "--------"
t = Cells(Rows.Count, 1).End(3).Row
For ii = 1 To t
If Cells(ii, 2) <> "" Then
arr = Split(Cells(ii, 2), ",")
For i = LBound(arr) To UBound(arr)
s = d(arr(i))
If s = "" Then
d(arr(i)) = Cells(ii, 1)
Else
d(arr(i)) = s + fh + Cells(ii, 1)
End If
Next i
End If
Next ii
k = d.keys
j = 0
For ii = 0 To d.Count - 1
Cells(j + 1, 5) = k(ii)
v = d(k(ii))
arr = Split(v, fh)
For i = LBound(arr) To UBound(arr)
j = j + 1
Cells(j, 6) = arr(i)
Next i
Next ii
End Sub

怎么将一个单元格里的数字自动到多个单元格里？
如数字在Q12格：8888888.88，分到G10,H10,I10,J10,K10,L10,M10,N10,O10单元格(百万到分)。前面加个“￥”。
万分感谢！