ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
高效办公必会的Office实战技巧 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel函数公式学习大典 Office 365免费试用,报名现在开始! 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 打造核心竞争力的职场宝典 13门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 451|回复: 27

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

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-1-12 11:02 | 显示全部楼层 |阅读模式
本帖最后由 rnism 于 2018-1-12 13:36 编辑

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

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-1-12 11:16 | 显示全部楼层
别沉啊,求大侠支招!多谢,辛苦了~~~

TA的精华主题

TA的得分主题

发表于 2018-1-12 11:22 | 显示全部楼层
rnism 发表于 2018-1-12 11:16
别沉啊,求大侠支招!多谢,辛苦了~~~

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

TA的精华主题

TA的得分主题

发表于 2018-1-12 11:22 | 显示全部楼层
本帖最后由 ivccav 于 2018-1-12 11:37 编辑

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

TA的精华主题

TA的得分主题

发表于 2018-1-12 11:23 | 显示全部楼层
单元格内数据发生替换动作,会导致颜色的变化
目前能想到的办法就是在替换前记录单元格内有字体颜色,替换后再修改回去吧

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

TA的精华主题

TA的得分主题

 楼主| 发表于 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的得分主题

 楼主| 发表于 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的得分主题

发表于 2018-1-12 11:40 | 显示全部楼层
rnism 发表于 2018-1-12 11:34
还是原来的附件不变,如果我要替换“免钉胶”为“胶”呢? 貌似这个.Characters.Text 就不作用了,有何办 ...

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

TA的精华主题

TA的得分主题

发表于 2018-1-12 11:40 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-1-12 11:46 | 显示全部楼层
重新设置一下呗:
  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
复制代码
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

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

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2018-8-19 00:18 , Processed in 0.079132 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表