[已解决]如何根据EXCEL中的字体颜色获取相应的文字和替换部分内容

yygroup

需求1：
将数据列中（）号的内容并加注了红色字体的字输出到结果列中。
数据列                                                                           结果
发生抢劫、伤害、抢夺、流氓案件时应拨打（ 110  ）   110

需求2：
将数据列中（）号的内容并加注了红色字体的字替换为空。
数据列                                                                           结果
发生抢劫、伤害、抢夺、流氓案件时应拨打（ 110  ）   发生抢劫、伤害、抢夺、流氓案件时应拨打（       ）

详细如附件描述。

最佳答案

月排行榜 / 总排行榜

byhdch

2013-4-17 20:17

1. Sub Macro()
   
2.     Sheets(1).Activate
   
3.     Range("C2") = "'" & Split(Split(Range("B2"), "（")(1), "）")(0)
   
4.     Range("C5") = Replace(Range("B5"), Split(Split(Range("B2"), "（")(1), "）")(0), "     ")
   
5. End Sub

复制代码

跳转到最佳答案楼层

csmctjg

1. 
   
2. Sub aa()
   
3.     Dim i%
   
4.     For i = 1 To Len([B2])
   
5.         If Mid([B2], i, 1) = "（" Then
   
6.             i = i + 1
   
7.             Do While Mid([B2], i, 1) = " "
   
8.                 i = i + 1
   
9.             Loop
   
10.             If [B2].Characters(i, 1).Font.ColorIndex = 3 Then
    
11.                 [C5] = Mid([B2], 1, i - 1)
    
12.                 Do While Mid([B2], i, 1) <> " " And Mid([B2], i, 1) <> "）"
    
13.                     [C2] = [C2] & Mid([B2], i, 1)
    
14.                     [C5] = [C5] & " "
    
15.                     i = i + 1
    
16.                 Loop
    
17.             End If
    
18.         End If
    
19.         If [C2] <> "" Then [C5] = [C5] & Mid([B2], i, 1)
    
20.     Next
    
21.     If [C2] = "" Then [C5] = [B2]
    
22. End Sub
    

复制代码

byhdch

1. Sub Macro()
   
2.     Sheets(1).Activate
   
3.     Range("C2") = "'" & Split(Split(Range("B2"), "（")(1), "）")(0)
   
4.     Range("C5") = Replace(Range("B5"), Split(Split(Range("B2"), "（")(1), "）")(0), "     ")
   
5. End Sub

复制代码