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

aman1516

重新设置一下呗： 替换但保留颜色格式.rar (16.37 KB, 下载次数: 2)

2018-1-12 11:47 上传

点击文件名下载附件

rnism

ivccav 发表于 2018-1-12 11:40
你说替换逗号，就写了一个。楼主应该一次说完整的，免得又要写一次哈

抱歉哈，大侠，是我疏忽了，举例没举好...
还要麻烦您一下了~~~

rnism

ggmmlol 发表于 2018-1-12 11:40
Characters对象，应当指定开始位置和字符个数。

就是说 替换不同的字符串，要分别指定替换的字符个数吗？ 位置也是变的呢

aman1516

如果替换涉及到字数变化的（三字换两字，或一字换多字等），则需用二维数组来识别处理，因不知楼主数据及颜色设置的具体情况，会稍复杂

322344

复制到word 替换完再复制回来。这样可以保留颜色格式。

ggmmlol

rnism 发表于 2018-1-12 11:52
就是说 替换不同的字符串，要分别指定替换的字符个数吗？ 位置也是变的呢

位置是变的，需要通过字符串函数先确定位置。比如要在单元格中的字符“金额”后面添加“大写”，则可以用
Start = instr(Range.value,"金额")+2  确定其开始位置。

对于保持原有字符的格式的问题，如果是字符替换，很好解决。如果是添加或减少字符。就会很麻烦：你需要先用循环，记录原来的每个字符的字体格式（包含：字体名称、字号、颜色、下划线类型、上标或下标等等），当添加或删除字符之后，再按变动后的位置逐一设置回去。

ivccav

指定区域，想怎么替换就怎么替换。

Sub th()'调用举例
fmtrpl [a2], "米", "米粉"
End Sub

副本Xl0000001 (version 1).zip (14.48 KB, 下载次数: 8)

2018-1-12 12:45 上传

点击文件名下载附件

Sub fmtrpl(rng As Range, fnd As String, rpl As String)'按原格式替换
    'rng 目标单元格区域
    'fnd 查找字符串
    'rpl 替换成字符串
    Dim c As Range, p%
    p = 1
    For Each c In rng
        Do While InStr(p, c, fnd, 1) > 0
            p = InStr(p, c, fnd, 1)
            c.Characters(p, Len(fnd)).Text = rpl
            p = p + Len(rpl)
            If p > Len(c) Then Exit Do
        Loop
    Next
End Sub

aman1516

实际字符处理各种可能性太大，若字符颜色标识非手工设置，那么不管如何处理字符串，按原来规则再设置一遍应是最简单的方法

ggmmlol

在EXCEL2003中，有脚本编辑器，可以把EXCEL文档当html文件一样编辑，它所提供的查找、替换的能力，比VBA要强的多，因为它能直接对文档进行底层的操作，也可以像Word一样支持正则表达式的替换。当然， 这样强大的能力，可能带来安全问题，比如你把文档的内容替换修改成了错误的格式，造成EXCEL无法“理解”的时候，EXCEL就可能崩溃。所以在2007版时就不提供了，很是可惜。

ivccav

ggmmlol 发表于 2018-1-12 12:22
位置是变的，需要通过字符串函数先确定位置。比如要在单元格中的字符“金额”后面添加“大写”，则可以用 ...

字符替换后你怎么还找得到原来的位置？其实你想多了。这个问题不算难，只要几句话就搞定了。VBA提供了足够的属性了。