仅供参考
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
这个问题,单纯用公式应该很难完成吧,至少我没想到好办法,如果用宏应该更简点。
提问的条件也有点问题,看你的两张图,与你的描述有冲突。
要EXCEL做一个排版的功能有点勉强啊
EXCEL的强项是做数据核算处理的,对你这样小白还是建议放弃这个思路,说实在的,最手!很高的高手也不是这样玩EXCEL,若按你的要求做一个公式,有点像小学生看博士的论文……
你学会了没?