[已解决]大神！Excel中删除特定内容与重复内容，谢谢

兔八哥

大神！Excel中删除特定内容与重复内容，请参考附件。万分谢谢！！！

最佳答案

月排行榜 / 总排行榜

林木水

2021-12-27 23:39

1. Sub 根据字体颜色删除()
   
2. Dim rg As Range, i As Integer, k As Integer
   
3. For Each rg In Range("A2:A" & Cells(65536, 1).End(xlUp).Row)
   
4.     For i = 1 To rg.Characters.Count
   
5.         If rg.Characters(i, 1).Font.ColorIndex = 3 Or rg.Characters(i, 1).Font.ColorIndex = 23 Then
   
6.         Else
   
7.            k = k + 1
   
8.            rg.Offset(0, 1).Characters(k, 1).text = rg.Characters(i, 1).text
   
9.         End If
   
10.     Next i
    
11.     k = 0
    
12. Next rg
    
13. End Sub

复制代码

以上，安排！
删除了红色字体跟蓝色字体。
是否解决问题，解决问题老规矩

今天测试了一下，以上代码office可以直接出结果，WPS不行，不能直接修改对应字符的text并保存，代码调整如下,选择自己适合的：
Sub 根据字体颜色删除()
Dim rg As Range, i As Integer, k As Integer
For Each rg In Range("A2:A" & Cells(65536, 1).End(xlUp).Row)
    rg.Offset(0, 1).Value = ""
    For i = 1 To rg.Characters.Count
        If rg.Characters(i, 1).Font.ColorIndex = 3 Or rg.Characters(i, 1).Font.ColorIndex = 23 Then
        Else
           k = k + 1
           rg.Offset(0, 1).Value = rg.Offset(0, 1).Value & rg.Characters(i, 1).text
        End If
    Next i
    k = 0
Next rg
End Sub

跳转到最佳答案楼层

兔八哥

大神！Excel中删除特定内容与重复内容，请参考附件。万分谢谢！！！

林木水

1. Sub 根据字体颜色删除()
   
2. Dim rg As Range, i As Integer, k As Integer
   
3. For Each rg In Range("A2:A" & Cells(65536, 1).End(xlUp).Row)
   
4.     For i = 1 To rg.Characters.Count
   
5.         If rg.Characters(i, 1).Font.ColorIndex = 3 Or rg.Characters(i, 1).Font.ColorIndex = 23 Then
   
6.         Else
   
7.            k = k + 1
   
8.            rg.Offset(0, 1).Characters(k, 1).text = rg.Characters(i, 1).text
   
9.         End If
   
10.     Next i
    
11.     k = 0
    
12. Next rg
    
13. End Sub

复制代码

以上，安排！
删除了红色字体跟蓝色字体。
是否解决问题，解决问题老规矩

今天测试了一下，以上代码office可以直接出结果，WPS不行，不能直接修改对应字符的text并保存，代码调整如下,选择自己适合的：
Sub 根据字体颜色删除()
Dim rg As Range, i As Integer, k As Integer
For Each rg In Range("A2:A" & Cells(65536, 1).End(xlUp).Row)
    rg.Offset(0, 1).Value = ""
    For i = 1 To rg.Characters.Count
        If rg.Characters(i, 1).Font.ColorIndex = 3 Or rg.Characters(i, 1).Font.ColorIndex = 23 Then
        Else
           k = k + 1
           rg.Offset(0, 1).Value = rg.Offset(0, 1).Value & rg.Characters(i, 1).text
        End If
    Next i
    k = 0
Next rg
End Sub