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

rnism

ivccav 发表于 2018-1-12 12:40
指定区域，想怎么替换就怎么替换。

Sub th()'调用举例

1. 
   
2. For i = 1 To total
   
3. 
   
4. fmtrpl ["a" & i], "免钉胶", "胶"     '提示缺少对象？该怎么书写呢？
   
5. fmtrpl [a2], "免钉胶", "胶"          '这样就可以
   
6. 
   
7. Next i
   

复制代码

抱歉，知道了，写成： fmtrpl Range("a" & i), "免钉胶", "胶"    即可！！

ivccav

rnism 发表于 2018-1-12 13:26

[a1]这种格式不可以有变量！你如果确定范围，直接用[a1:a100]就行了。
需要变量指定行列变量的，必须使用range("a"& i)或者cells(i,j)这样的格式，cells(i,j)只表示一个单元格指定范围用最好用range("a1:a" & r)这种格式，简单易懂。
其中r是该列最后一个非空行，用r=range("a" &rows.count).end(3).row求得。

rnism

多谢大家的讨论和指导！！
谢谢 ivccav，谢谢大家！

终于解决了困扰我的一个大难题~~ 网上查了好久都没解决，还是这里有大神啊！

ivccav

rnism 发表于 2018-1-12 13:26
抱歉，知道了，写成： fmtrpl Range("a" & i), "免钉胶", "胶"    即可！！

其实可以不用循环，因为我在定义fmtrpl()的时候，已经假定你可以指定的是一个单元格范围。
直接这样调用也是可以的：

fmtrpl range("a2:a" & range("a" &rows.count).end(3).row), "免钉胶", "胶"

当然，你用循环也是没有问题的。

rnism

ivccav 发表于 2018-1-12 13:37
其实可以不用循环，因为我在定义fmtrpl()的时候，已经假定你可以指定的是一个单元格范围。
直接这样调用 ...

原来是这样，太感谢了！
循环是本身有的，还有很多别的工作是靠循环完成，替换只是其中一个工作。那我把这种替换挪动到循环外去，看是否可以让代码运行更快点。

ivccav

rnism 发表于 2018-1-12 14:03
原来是这样，太感谢了！
循环是本身有的，还有很多别的工作是靠循环完成，替换只是其中一个工作。那我把 ...

不会更快的，都一样，需要访问每个单元格对象。你这种替换是一定要访问单元格对象的，你放到数组中，根本就没有属性了。不过可以用Application.ScreenUpdating = False开关闭刷屏，这样会快很多。运行完成之后，记得Application.ScreenUpdating = true开启刷屏。

rnism

ivccav 发表于 2018-1-12 14:17
不会更快的，都一样，需要访问每个单元格对象。你这种替换是一定要访问单元格对象的，你放到数组中，根本 ...

好的，多谢！

02761752696

学习学习，谢谢

mrqiu

您好，请问如何让替换后的文字保留原有格式？