excel函数公式求助

发布网友 发布时间：2022-05-06 00:06

我来回答

共3个回答

热心网友 时间：2022-06-28 08:56

仅供参考

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追问感谢您的回答，不会用

热心网友 时间：2022-06-28 08:56

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

热心网友 时间：2022-06-28 08:57

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