Replace如何才能保留原有的颜色格式？【已解决】

rnism

原本的单元格中有一行字，其中某几个字是红色的。我的需求是 把单元格中的英文逗号替换为中文逗号，但不改变其他字的颜色。
可是用replace替换，怎么样都会丢失颜色格式。。。。
用WorksheetFunction.Substitute 也一样，求助怎样才能替换后，保留原来的颜色格式呢？
下面是附件：

替换但保留颜色格式.rar (16.98 KB, 下载次数: 16)

2018-1-12 11:00 上传

点击文件名下载附件

rnism

别沉啊，求大侠支招！多谢，辛苦了~~~

dailunchuan

rnism 发表于 2018-1-12 11:16
别沉啊，求大侠支招！多谢，辛苦了~~~

至少我也不知道答案  正则做出来也一样丢失颜色，这确实是个问题

ivccav

忘记附件了。
副本Xl0000001 (version 1).zip (14.18 KB, 下载次数: 5)

2018-1-12 11:37 上传

点击文件名下载附件

Sub test()
    Application.ScreenUpdating = False
    Dim c As Range, r&
    r = Range("a" & Rows.Count).End(3).Row
    For Each c In Range("a1:a" & r)
        If Len(c) Then
            For i = 1 To Len(c)
                With c.Characters(i, 1)
                    If .Text = "，" Then .Text = ","
                End With
            Next
        End If
    Next
    Application.ScreenUpdating = True
    MsgBox "替换完毕！"
End Sub

liulang0808

单元格内数据发生替换动作，会导致颜色的变化
目前能想到的办法就是在替换前记录单元格内有字体颜色，替换后再修改回去吧

另外就是看看其他人是否有更便捷的处理方法了

rnism

ivccav 发表于 2018-1-12 11:22
Sub test()
    Application.ScreenUpdating = False
    Dim c As Range, r&

用Characters.Text 的确可行，但是如果我是要替换一串字符，就不行了，比如：
替换“发中通，我们付” 为空""，
If .Text = "发中通，我们付" Then .Text = ""
这种形式，多字符替换它就不执行了，为何呢？

rnism

ivccav 发表于 2018-1-12 11:22
Sub test()
    Application.ScreenUpdating = False
    Dim c As Range, r&

还是原来的附件不变，如果我要替换“免钉胶”为“胶”呢？ 貌似这个.Characters.Text 就不作用了，有何办法么？
因为我实际要替换的不止一种，有四五种替换，很多是多字符替换。

ivccav

rnism 发表于 2018-1-12 11:34
还是原来的附件不变，如果我要替换“免钉胶”为“胶”呢？ 貌似这个.Characters.Text 就不作用了，有何办 ...

你说替换逗号，就写了一个。楼主应该一次说完整的，免得又要写一次哈

ggmmlol

Characters对象，应当指定开始位置和字符个数。

aman1516

重新设置一下呗：

1. Sub geshi()
   
2. On Error Resume Next
   
3. Dim total%, sr(), i, j, k
   
4. Sheet1.Activate
   
5. 'total = ActiveSheet.UsedRange.Rows.Count        '最后一行有内容的行号，赋值给total
   
6. total = Cells(Rows.Count, 1).End(xlUp).Row
   
7. 'MsgBox (total)
   
8. For i = 1 To total
   
9.     If Cells(i, "a") <> "" Then
   
10.     ReDim sr(1 To Len(Cells(i, "a")))
    
11.     For j = 1 To Len(Cells(i, "a"))
    
12.         sr(j) = Cells(i, "a").Characters(j, 1).Font.Color
    
13.     Next
    
14.     '把英文逗号改为中文逗号
    
15.     Cells(i, "a") = Replace(Cells(i, "a"), ",", "，")
    
16.     For j = 1 To Len(Cells(i, "a"))
    
17.         Cells(i, "a").Characters(j, 1).Font.Color = sr(j)
    
18.     Next
    
19.     End If
    
20. Next
    
21. End Sub

复制代码