用宏。同时按Alt和
F11
进入宏界面，
点菜单
的插入，模块，粘贴如下代码：
Sub
test()
Dim
cell
As
Range
Dim
i
As
Byte
Application.ScreenUpdating
=
False
For
Each
cell
In
Range("A1:E600")
i
=
InStr(cell,
"
")
If
i
>
0
Then
cell.
Characters
(1,
i
-
1).Font.Color
=
vbBlue
cell.Characters(1,
i
-
1).Font.Bold
=
True
End
If
Next
cell
Application.ScreenUpdating
=
True
End
Sub
把粗体部分改为是需要设置的单元格区域，然后直接按F5运行此宏，完成。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024