ExcelHome技术论坛

 找回密码
 免费注册
QQ登录 只需一步,快速开始
   
高效办公必会的Office99uu优优 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! 国内首部Excel函数公式学习大典 职场充电黑科技, Office微99uu优优 免费下载Excel行业应用视频
300集Office 2010微99uu优优 Tableau-数据可视化工具 突破Excel限制,用活字格提高效率 12门Excel免费公开课任你学
你的Excel 201099uu优优学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 190|回复: 27
打印 上一主题 下一主题

[求助] Replace如何才能保留原有的颜色格式?【已解决】

[复制链接]
TA的精华主题TA的得分主题
跳转到指定楼层
1
发表于 2018-1-12 11:02 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 rnism 于 2018-1-12 13:36 编辑

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

替换但保留颜色格式.rar (16.98 KB, 下载次数: 15)
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏1 分享分享 有用有用 无用无用
TA的精华主题TA的得分主题
2
 楼主| 发表于 2018-1-12 11:16 | 只看该作者 |楼主
别沉啊,求大侠支招!多谢,辛苦了~~~
TA的精华主题TA的得分主题
3
发表于 2018-1-12 11:22 | 只看该作者
rnism 发表于 2018-1-12 11:16
别沉啊,求大侠支招!多谢,辛苦了~~~

至少我也不知道答案  正则做出来也一样丢失颜色,这确实是个问题
TA的精华主题TA的得分主题
4
发表于 2018-1-12 11:22 | 只看该作者
本帖最后由 ivccav 于 2018-1-12 11:37 编辑

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

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
TA的精华主题TA的得分主题
5
发表于 2018-1-12 11:23 | 只看该作者
单元格内数据发生替换动作,会导致颜色的变化
目前能想到的办法就是在替换前记录单元格内有字体颜色,替换后再修改回去吧

另外就是看看其他人是否有更便捷的处理方法了
TA的精华主题TA的得分主题
6
 楼主| 发表于 2018-1-12 11:30 | 只看该作者 |楼主
ivccav 发表于 2018-1-12 11:22
Sub test()
    Application.ScreenUpdating = False
    Dim c As Range, r&

用Characters.Text 的确可行,但是如果我是要替换一串字符,就不行了,比如:
替换“发中通,我们付” 为空"",
If .Text = "发中通,我们付" Then .Text = ""
这种形式,多字符替换它就不执行了,为何呢?
TA的精华主题TA的得分主题
7
 楼主| 发表于 2018-1-12 11:34 | 只看该作者 |楼主
ivccav 发表于 2018-1-12 11:22
Sub test()
    Application.ScreenUpdating = False
    Dim c As Range, r&

还是原来的附件不变,如果我要替换“免钉胶”为“胶”呢? 貌似这个.Characters.Text 就不作用了,有何办法么?
因为我实际要替换的不止一种,有四五种替换,很多是多字符替换。
TA的精华主题TA的得分主题
8
发表于 2018-1-12 11:40 | 只看该作者
rnism 发表于 2018-1-12 11:34
还是原来的附件不变,如果我要替换“免钉胶”为“胶”呢? 貌似这个.Characters.Text 就不作用了,有何办 ...

你说替换逗号,就写了一个。楼主应该一次说完整的,免得又要写一次哈
TA的精华主题TA的得分主题
9
发表于 2018-1-12 11:40 | 只看该作者

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


TA的精华主题TA的得分主题
10
发表于 2018-1-12 11:46 | 只看该作者
重新设置一下呗:
  • Sub geshi()
  • On Error Resume Next
  • Dim total%, sr(), i, j, k
  • Sheet1.Activate
  • 'total = ActiveSheet.UsedRange.Rows.Count        '最后一行有内容的行号,赋值给total
  • total = Cells(Rows.Count, 1).End(xlUp).Row
  • 'MsgBox (total)
  • For i = 1 To total
  •     If Cells(i, "a") <> "" Then
  •     ReDim sr(1 To Len(Cells(i, "a")))
  •     For j = 1 To Len(Cells(i, "a"))
  •         sr(j) = Cells(i, "a").Characters(j, 1).Font.Color
  •     Next
  •     '把英文逗号改为中文逗号
  •     Cells(i, "a") = Replace(Cells(i, "a"), ",", ",")
  •     For j = 1 To Len(Cells(i, "a"))
  •         Cells(i, "a").Characters(j, 1).Font.Color = sr(j)
  •     Next
  •     End If
  • Next
  • End Sub
  • 复制代码
    您需要登录后才可以回帖 登录 | 免费注册
    本版积分规则
    关闭

    最新热点上一条 /1 下一条

    关注官方微信,每天坐享新鲜教程
    手机版|关于我们|联系我们|ExcelHome    GMT+8, 2018-1-21 16:47 , Processed in 0.080726 second(s), 10 queries , Gzip On, MemCache On.
    Powered by Discuz! X3.3 © 2001-2017 Wooffice Inc.
        沪公网安备 31011702000001号 沪ICP备11019229号 本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师
    快速回复 返回顶部 返回列表
    99uu优优