㈠ 问如何在excel中将一列中所有带括号里面的文字字体变成红颜,色
Sub ColorRed()
Dim rng As Range
Dim sp As Integer, ep As Integer, le As Integer
For Each rng In Selection
If rng.Value <> "" Then
ep = 1: rng.Characters.Font.Color = vbBlack
Do
sp = InStr(ep, rng.Value, "[")
If sp = 0 Then Exit Do
ep = InStr(sp, rng.Value, "]")
sp = InStrRev(rng.Value, "[", ep)
le = ep - sp + 1
If sp > 0 And le > 0 Then
rng.Characters(sp, le).Font.Color = vbRed
Else
Exit Do
End If
Loop
End If
Next rng
End Sub
㈡ 怎么把EXCEL 表格里面的某个词全部改成另一个颜色
可以使用替换功能,使用方法如下:
所需材料:Excel。
一、如下图,要把下图中的“指定词”三字全部更换颜色,这时Ctrl+H打开“替换”。
㈢ 如何批量把EXCEL括号里的变红色
楼主如果不会写程序,可以用下列操作来达到目的。
方法如下:
将需要处理的内容复制到Word里
找到菜单:查找--高级查找
输入查找内容:(*)
点击“更多”按钮,“使用通配符”勾上
点击“在以下项中查找”中选择“主文档”
这时括号里的内容就会被筛选出来
设置字体为红色
Ctrl+A全选,复制粘贴回Excel
当然如果括号不需要变成红色,在Word里可以进行以下操作后,再复制到Excel里:
点击“更多”按钮,“使用通配符”勾去掉
输入查找内容:(
点击“在以下项中查找”中选择“主文档”
这时"("就会被筛选出来
设置字体为黑色
“)”的处理如法炮制。
处理完后再Ctrl+A全选,复制粘贴回Excel
㈣ excel表格中如何使中括号的内容[某某]自动改变颜色
复制到WORD中进行处理比较方便。 按CTRL+H,勾选使用通配符,查找 :\[*\] 替换成 红色字体
㈤ excel2019如何批量替换个别字体颜色
首先,打开Excel2010软件,如图录好文字。接下来准备将图中的红色字换成蓝色字。
最后点击查找和替换对话框中的全部替换按钮,弹出已经完成替换提示框,按确定退出。我们看到,表中的红字就都变成了蓝字了。
㈥ Excel单元格不同颜色文字替换
建议用Excel 2016版,操作: 1、将A列复制,到B列粘贴黑色字体部分内容,到C列粘贴红色字体内容,2,鼠标选到C5, ctrl+E,则红色字体内容分列出来了,3、 鼠标选到B5, ctrl+E,则lf黑色字体内容分列出来了,4、再过一边,删除不需要的选项。
㈦ 如何在excel中将一列中所有带括号的文字字体变颜色
将一列之中所有带括号的文字加粗变颜色这种格式的改动,你可以通过替换的模式,也可以通过设置宏的模式来改变整个一个3号表格的格式,这并不是个特别困难的事情,重点就是实际操作。
还有就是笨方法了,就是你自己去寻找括号,把括号自动突出来,把这括号变成一种突出的东西,你自然就可以很清晰的看到括号里面的内容,然后手动去加粗通过使用格式刷的方式,也可以实现快速的单个体的改变。这个格式改变慢了更更加精准,难度更低,适合于大多数人。
㈧ 怎么在excel里实现,在一个单元格里,把括号里的数字变成红色。如图,求教~TAT
这个问题必须用VBA才能解决,代码如下:
SubMacro1()
DimrngAsRange
ForEachrngInRange("A1:A10")
T1=InStr(rng,"(")
T2=InStr(rng,")")
IfT1>0Then
rng.Characters(T1+1,T2-T1-1).Font.ColorIndex=3
EndIf
Nextrng
EndSub
需要注意的是:
1、第三行的:Range("A1:A10"),请更改为你需要批量操作的单元格区域;
2、第四第五行的双引号之间的两个括号必须和你表中那些括号一致,也就是表中是中文括号,代码也要用中文括号,表中是英文括号,代码也要是英文括号;
3、只能把所有单元格中第一个括号内的数字转为红色。
㈨ excel里怎么一次性替换某些字的颜色
1、首先,打开Excel2010软件,如图录好文字。接下来准备将图中的红色字换成蓝色字。
㈩ 同一个Excel单元格中,如何让中括号"[***]"里的部分文字自动变成红色
复制到WORD中进行处理比较方便。