前言|工作案例

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

如果直接用Excel的“查找和替换”功能处理这个问题,就比较难办了,因为Excel的查找和替换功能只能查找和替换整个单元格的内容,而不能查找和替换单元格中的部分字符内容。

如下图所示:

选中A2:C4单元格数据区域,按下快捷键“Ctrl+H”,调出“查找和替换”的对话框。

查找内容:输入“河北”

替换为:输入“河北”

然后点击“选项”按钮,再点击“替换为”右边的“格式”按钮,设置“替换为”内容的格式,将字体颜色设置为红色。即替换为红色字体颜色的“河北”两字。

最后点击“全部替换”,我们发现含有“河北”两字的整个单元格的内容全部变成了红色。所以这种方法是错误的,难以实现正确的效果。

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

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

然后利用Word文档中的“查找和替换”功能来实现。

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

在“查找内容”中输入内容,这里输入的是“河北”;

在“替换为”中输入内容,这里同样输入的是“河北”;

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

即将查找出来的“河北”两字替换为红色字体颜色的“河北”两字。

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

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


方法②|VBA代码替换法

除了利用Word的方法作为间接转换,我们也可直接使用VBA代码进行批量替换字体颜色。下面小编来介绍一下具体的操作方法。

如下图所示:

右击点击名称为“公众号 Excel情报局”工作表名称标签,点击“查看代码”按钮,调出VBA代码编辑窗口,将下面的一段VBA代码复制粘贴进去,然后点击上方的“运行-运行子过程/用户窗体”按钮,这时候会弹出一个“宏”的提示对话框,我们在这个界面中,随意输入一个“宏名称”,本例中输入的是一个字母“A”,然后点击“创建”按钮。最后将VBA代码窗口全部关闭。回到Excel工作表主界面。

代码如下:

Private Sub CommandButton1_Click() Cells.Font.ColorIndex = 1 End Sub Print Sub Worksheet_SelectionChange(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 Loop Next End Sub

最重要的一步来了,我们直接鼠标框选选中A2:C4单元格数据区域,我们发现选中的区域内,所有单元格中的“河北”两个字符的字体颜色就变为了红色。如下图所示:

㈠代码中需要我们根据具体情况修改的地方:

T = "河北"

这是我们需要查找替换字体颜色的字符,在使用该程序时只需要修改双引号中的内容即可。

㈡代码中需要我们根据具体修改的地方:

C = 3

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

1.《Excel中如何批量更改单元格内特定文字的颜色?职场高效技能》援引自互联网,旨在传递更多网络信息知识,仅代表作者本人观点,与本网站无关,侵删请联系页脚下方联系方式。

2.《Excel中如何批量更改单元格内特定文字的颜色?职场高效技能》仅供读者参考,本网站未对该内容进行证实,对其原创性、真实性、完整性、及时性不作任何保证。

3.文章转载时请保留本站内容来源地址,https://www.lu-xu.com/why/3040128.html