alt+F11，打开宏编辑器运行如下代码：

Sub AAA()

    Dim R As Range, L As Long, S As String

    Application.ScreenUpdating = False

    S = "红"  '要标记的字符

    L = Len(S)

    For Each R In Selection

        If InStr(R, S) > 0 Then R.Characters(InStr(R, S), L).Font.Color = vbRed

    Next

    Application.ScreenUpdating = True

End Sub

最新文章

1. Linux查看硬盘型号
2. 经验分享：Xcode 创建.a和framework静态库【转】
3. quay.io/coreos/etcd 基于Docker镜像的集群搭建
4. Flasback数据库(闪回数据库)
5. T-SQL查询进阶--详解公用表表达式(CTE)
6. 多线程下载 HttpURLConnection
7. ckeditor:复制内容到ckeditor时，只保留文本，忽略其样式解决方法
8. probabilistic robotics_Kalman filter(一)
9. ●洛谷P2495 [SDOI2011]消耗战
10. python—文件处理
11. git 分支管理规范
12. ubuntu下安装pdf编辑器Master PDF Editor
13. Qt5数据库
14. TensorFlow练习7: 基于RNN生成古诗词
15. 《Ubuntu标准教程》学习总结
16. HAOI 2005 路由选择问题 （最短路+次短路）
17. java使用省略号代替多参数（参数类型... 参数名）
18. 【Android】15.3 Notification基础知识
19. hdu6208 The Dominator of Strings
20. c# String.Split数组省去空字符

热门文章

1. 如何开发NPM包
2. PHP判断引入文件是否引入成功
3. C# socket通讯 send方法记录
4. 基于CBOW网络手动实现面向中文语料的word2vec
5. 记一次idea启动tomcat后控制台乱码的坑
6. Zookeeper原理、安装、基本使用和API
7. 爱因斯坦求和约定 (Einstein summation convention)
8. 前端框架Angular、react、vue在github上的数据统计-2018-05
9. 学习flask需要用到的包
10. 蓝桥杯——X星球居民问题