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

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

工具/原料

• 已经下载安装并激活宏了的wps或者excel

方式/步骤

1. 1

   新建一个工作簿

   
2. 2

   写上数据

   
3. 3

   打开代码窗口

   
4. 4

   插入模块

   
5. 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

               End If

           Next

       Next

       

   End Sub

   
6. 6

   运行一下,依次选择区域

   
7. 7

   完当作啦