[已解决]替代

chen418102

各位大神，在一个单元格中，部份字体是非黑色，为什么我代替时，会自动变成黑色，谢谢！

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-12-29 17:30

1. Sub test()
   
2.     Dim rng As Range
   
3.     Set rng = Cells(1, 2).Resize(WorksheetFunction.CountA(Columns("b:b")), 1)
   
4.     For Each cell In rng
   
5.         With cell
   
6.             For i = 1 To .Characters.Count
   
7.                 If .Characters(i, 2).Text = "系统" Then .Characters(i, 2).Text = "综合"
   
8.             Next
   
9.         End With
   
10.     Next
    
11. End Sub

复制代码

跳转到最佳答案楼层

望帝春心

查找替换相当于重写单元格值，颜色就变了

chen418102

望帝春心 发表于 2016-12-29 16:43
查找替换相当于重写单元格值，颜色就变了

那为什么假如，整个单元数据全部是红色时，部份代替， 还是红色，不会变为黑色

望帝春心

chen418102 发表于 2016-12-29 16:49
那为什么假如，整个单元数据全部是红色时，部份代替， 还是红色，不会变为黑色

这个问题还真是很难

望帝春心

1. Sub test()
   
2.     Dim rng As Range
   
3.     Set rng = Cells(1, 2).Resize(WorksheetFunction.CountA(Columns("b:b")), 1)
   
4.     For Each cell In rng
   
5.         With cell
   
6.             For i = 1 To .Characters.Count
   
7.                 If .Characters(i, 2).Text = "系统" Then .Characters(i, 2).Text = "综合"
   
8.             Next
   
9.         End With
   
10.     Next
    
11. End Sub

复制代码

望帝春心

1. 参考附件

复制代码