范围内红色字体的单元格内容合并

summerlcb

请问老师 绿色单元格函数如何填写，能自动查找前面红色字体的数据，合并起来。

沈默00

这个函数解决不了，要VBA

niko88819

J2 公式 =COLORTEXT(B2:H2,"") 下拉

1. Function COLORTEXT(rng As Range, delimiter As String) As String
   
2.     Dim cell As Range
   
3.     Dim result As String
   
4.     For Each cell In rng
   
5.         Dim text As String
   
6.         text = cell.Value
   
7.         Dim hasRed As Boolean
   
8.         hasRed = False
   
9.         Dim i As Long
   
10.         For i = 1 To Len(text)
    
11.             If cell.Characters(i, 1).Font.Color = RGB(255, 0, 0) Then
    
12.                 hasRed = True
    
13.                 Exit For
    
14.             End If
    
15.         Next i
    
16.         If hasRed Then
    
17.             result = result & text & delimiter
    
18.         End If
    
19.     Next cell
    
20.     If Len(result) > 0 Then
    
21.         result = Left(result, Len(result) - Len(delimiter))
    
22.     End If
    
23.     COLORTEXT = result
    
24. End Function

复制代码

沈默00

沈默00

试一下.......

hxj119

函数不能直接取得颜色，建议用VBA

hxj119

仅限示例：
=IFERROR(CONCAT(CHOOSECOLS(TOROW(A2:H2,3),-4,-1)),"")

高个子

如果非要函数，需要加一堆辅助列用宏表函数getcell来判断颜色，然后借助辅助列才能用公式，最终要另存为xlsm格式
这样还不如用VBA解决，VBA也需要另存为xlsm格式呢

niko88819

新代码审核中，原代码判断全红色字才算，刚又在看了一下，只要其中内容有一个红色字体都算，请耐心等待

沈默00

niko88819 发表于 2024-8-9 09:22
新代码审核中，原代码判断全红色字才算，刚又在看了一下，只要其中内容有一个红色字体都算，请耐心等待

按LZ的要求，直接判断单元格就已经可以了