前言|工作案例

Excel的功能非常强大,但存在难以解决的问题,例如如何将下表中的某些字符显示为红色。例如,将储存格A2:C4中的所有字元「河北」设定为红色做为字体颜色。

如果直接使用 Excel查找和替换功能来处理此问题,则Excel查找和替换功能很难找到和替换整个单元格的内容,因为只能查找和替换单元格中的部分文字内容。

如下图所示。

选择A2:C4单元格数据区域,然后按快捷键" Ctrl H "以调出“查找和替换”对话框。

查找内容:输入河北

替换为:输入“河北省”

然后单击“选项”按钮,再单击“更改为”右侧的“格式”按钮设置“更改为”的格式,并将字体颜色设置为红色。这是改为红色字体颜色的“河北省”一词。

最后点击“全部替换”后,发现包含“河北”一词的整个单元格的内容都变成了红色。所以这种方法是错误的,很难取得正确的效果。

方法|利用Word文档查找和替换

首先,将Excel的内容复制到Word文档中,如下图所示。

然后,使用Word文档的查找和替换功能实现。

首先按快捷键“Ctrl H”以打开“查找和替换”对话框。

在“查找内容”中输入内容,在此输入“河北”。

在“更改为”中输入内容。在此处输入“河北”。

在替换下,直接选择“更多”,单击“格式”,选择“字体”,并将字体颜色设置为红色。

即将找到的“河北省”一词将改为红色字体颜色的“河北省”。

最后,单击“全部替换”按钮,A2:C4单元格中的所有字符“河北”都可以设置为红色。

最后,您可以将Word文档的内容直接复制到Excel表中。如下图所示。

方法 | VBA代码替换方法

除了使用Word的方法作为间接转换外,还可以直接使用VBA代码大量替换字体颜色。下一篇将介绍具体的操作方法。

如下图所示。

在名为“Public编号Excel Intelligence”的工作表名称选项卡上单击鼠标右键,然后单击“查看代码”按钮以调用“编辑VBA代码”窗口,复制并粘贴下面的VBA代码部分,然后单击上面的“运行-子进程/用户表单”按钮,将显示“宏”,最后关闭所有VBA代码窗口。返回到Excel工作表的主界面。

代码如下:

Private Sub CommandButton1_Click()

Cells。Font.ColorIndex=1

End Sub

Print

subworksheet _ selection change(byval target as range)

Dim RNG As Range、I As Integer

Dim T As String

Dim C As Integer

For Each RNG In Selection

T='河北' ' t是会大量改变颜色的大象文字

C=3 'C是通过设置不同的值来表示该颜色的颜色

I=1

Do While InStr(i、rng、T) 0

Rng.characters (instr (I,Rng,t),len (t)) .font.colorindex=C

I=InStr(i,rng,T) 1

循环(音乐)

next

End Sub最重要的一步是用鼠标交叉选择A2:C4单元格数据区域,发现选定区域内所有单元格的“河北”两个字符的字体颜色都变成了红色。如下图所示。

(I)根据特定情况需要修改的代码:

T='河北'

需要查找替换字体颜色的文字。使用此程序时,只需修改双引号内的内容。

(ii)根据特定情况需要修改的代码:

C=3

这是我们要替换的颜色代码。3代表红色,1代表黑色,2代表白色,4代表亮绿色,5代表蓝色,6代表黄色,7代表粉红色,8代表青色,9代表深红色,10代表绿色。

相关推荐