如何把某列里特定的字变成红色，而其他的字变成黑色

oldalbum

比如某一列，有一百行，要把这一列凡是带有“简析：”字样的字变成红色的，然后除此之外的其他文字变成黑色的？
谢谢大家

清风幽闲

Sub g()
Dim rng As Range
For Each rng In Range("a1:a100")
    t = InStr(rng, "简析：")
    If t > 0 Then
        rng.Characters(t, 3).Font.ColorIndex = 3
    End If
Next rng
End Sub

oldalbum

清风幽闲 发表于 2013-10-31 14:31
Sub g()
Dim rng As Range
For Each rng In Range("a1:a100")

请问怎么给这个做成一个按钮在单独的excel里

oldalbum

清风幽闲 发表于 2013-10-31 14:31
Sub g()
Dim rng As Range
For Each rng In Range("a1:a100")

然后是从M28：O118

oldalbum

清风幽闲 发表于 2013-10-31 14:31
Sub g()
Dim rng As Range
For Each rng In Range("a1:a100")

另外是这个工作簿里边左右工作表的这个位置的简析

清风幽闲

变色.rar (9.09 KB, 下载次数: 35)

2013-11-1 07:55 上传

点击文件名下载附件

不好意思，没注意，选择的范围为M28：O100，你可以修改下代码

清风幽闲

另外是这个工作簿里边左右工作表的这个位置的简析，不明白你这句话的意思，是不是有2个工作表，左边一个，右边一个

oldalbum

清风幽闲 发表于 2013-11-1 07:57
另外是这个工作簿里边左右工作表的这个位置的简析，不明白你这句话的意思，是不是有2个工作表，左边一个，右 ...

打错了，是所有的工作表的那俩字都变成红色，哈哈，其他的字都变成黑色

清风幽闲

变色.rar (10.87 KB, 下载次数: 96)

2013-11-1 09:30 上传

点击文件名下载附件

hzilusweet

清风幽闲 发表于 2013-11-1 09:30

谢谢！！！！！！！！！！！！！！！！！！！！！！