表格-包含部分改变字体颜色

区域2里面有哪些包含了区域1里面的字段呢?

表格-包含部分改变字体颜色

文章插图

需要这些哦
已经下载安装并激活宏了的wps或者excel
方式/
1新建一个工作簿

表格-包含部分改变字体颜色

文章插图

表格-包含部分改变字体颜色

文章插图

表格-包含部分改变字体颜色

文章插图

2写上数据

表格-包含部分改变字体颜色

文章插图

3打开代码窗口

表格-包含部分改变字体颜色

文章插图

4插入模块

表格-包含部分改变字体颜色

文章插图

表格-包含部分改变字体颜色

文章插图

表格-包含部分改变字体颜色

文章插图

表格-包含部分改变字体颜色

文章插图

表格-包含部分改变字体颜色

文章插图

表格-包含部分改变字体颜色

文章插图

5复制代码到模块里面
Sub a2018年05月21日22时33分44秒()
    Set 单位格区域1 = Application.InputBox("包含字段区域", , , , , , , 8)
    Set 单位格区域2 = Application.InputBox("数据区域", , , , , , , 8)
    
    For Each 单位格1 In 单位格区域1
        For Each 单位格2 In 单位格区域2
            位置 = InStr(1, 单位格2, 单位格1)
            If 位置 > 0 Then
                '也就是说找到了
【表格-包含部分改变字体颜色】                长度 = Len(单位格1)
                单位格2.Characters(位置, 长度).Font.ColorIndex = 3
             If
        Next

推荐阅读