批量修改单元格中单个字符的颜色（VBA）

最新推荐文章于 2024-03-27 12:21:40 发布

xg_an

最新推荐文章于 2024-03-27 12:21:40 发布

阅读量5.2k

点赞数

分类专栏： Excel 文章标签： vba integer excel each 工具

本文链接：https://blog.csdn.net/xg_an/article/details/1758126

版权

Excel 专栏收录该内容

23 篇文章 1 订阅

订阅专栏

Sub 替换单个字符颜色()
'选中需要改变颜色的区域后，运行该段代码
Dim rg As Range, i As Integer
For Each rg In Selection
    'On Error Resume Next
    For i = 1 To Len(rg.Value)
        If Mid(rg.Text, i, 1) = "0" Or Mid(rg.Text, i, 1) = "5" Or Mid(rg.Text, i, 1) = "9" Then '满足如果为字符059之一时
            rg.Characters(i, 1).Font.ColorIndex = 3 '指定字符为红色
        End If
    Next
Next
End Sub

可以为按钮指定宏，让这些代码为宏的内容，选中需要改变颜色的区域后，点击按钮既可运行宏。

具体步骤：1：按alt+F11,插入模块，粘贴上面的代码

2：回到Excel界面，从“窗体”工具栏中拖出一“命令”按钮，在出现的对话框中选择“ 替换单个字符颜色”。