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

niko88819

只提出红色字体  I2  公式下拉

1. =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.     Dim i As Long, j As Long   
   
5.     For i = 1 To rng.Rows.Count
   
6.         For j = 1 To rng.Columns.Count
   
7.             Dim text As String
   
8.             text = rng.Cells(i, j).Value
   
9.             Dim k As Long
   
10.             For k = 1 To Len(text)
    
11.                 If rng.Cells(i, j).Characters(k, 1).Font.Color = RGB(255, 0, 0) Then
    
12.                     result = result & Mid(text, k, 1) & delimiter
    
13.                 End If
    
14.             Next k
    
15.         Next j
    
16.     Next i   
    
17.     If Len(result) > 0 Then
    
18.         result = Left(result, Len(result) - Len(delimiter))
    
19.     End If   
    
20.     COLORTEXT = result
    
21. End Function

复制代码