excel函数公式求助

2024年11月22日 08:52
有4个网友回答
网友(1):

仅供参考

Sub 双条件合并值及判断颜色()
Dim arr, i, stra, stracol, strb, strbcol, coll
arr = ActiveSheet.Range("a1").CurrentRegion

For i = 1 To UBound(arr)
If arr(i, 6) > 3 Then
If arr(i, 11) = "否" And arr(i, 6) <= 5 Then
stra = stra & arr(i, 3) & "、"
ElseIf arr(i, 11) = "否" And arr(i, 6) > 5 Then
stracol = stracol & arr(i, 3) & "、"
ElseIf arr(i, 11) = "是" And arr(i, 6) <= 5 Then
strb = strb & arr(i, 3) & "、"
ElseIf arr(i, 11) = "是" And arr(i, 6) > 5 Then
strbcol = strbcol & arr(i, 3) & "、"
End If
End If
Next i
[K9] = stra & stracol & "(" & strb & Left(strbcol, Len(strbcol) - 1) & ")"
[K9].Font.ColorIndex = xlAutomatic
If Len(stracol) > 0 Then [K9].Characters(Start:=Len(stra) + 1, Length:=Len(stracol)).Font.Color = -16776961
coll = Len(stra) + Len(stracol) + Len(strb)
If Len(strbcol) > 0 Then [K9].Characters(Start:=coll + 1, Length:=Len(strbcol)).Font.Color = -16776961
End Sub

网友(2):

这个问题,单纯用公式应该很难完成吧,至少我没想到好办法,如果用宏应该更简点。
提问的条件也有点问题,看你的两张图,与你的描述有冲突。

网友(3):

要EXCEL做一个排版的功能有点勉强啊
EXCEL的强项是做数据核算处理的,对你这样小白还是建议放弃这个思路,说实在的,最手!很高的高手也不是这样玩EXCEL,若按你的要求做一个公式,有点像小学生看博士的论文……

网友(4):

你学会了没?