时间:2017-05-23 12:00作者:admin来源:未知人气:339我要评论(0)
如图所示,在Excel工作表的A、B、C、D四列的1-10行都放有字符串,现在要把B、C、D三列中的字符串分别与A列同一行的字符串相比较,如果含有A列字串的某个字符,就把这个字符变成红色(A列不变)。例如第6行中分别有四个字符串“H1N1”、“h1n1”、“流感”、“甲型H1N1”,B6单元格中的“h1n1”与A6单元格中的“H1N1”都含有字符“1”,就将B6单元格中的字符“1”改为红色;C6单元格中的“流感”与A6单元格中的内容不同,就不变色;D6单元格中的字符串“甲型H1N1”包含A6单元格中的“H1N1”,也将其中的“H1N1”变成红色。
下面是VBA代码:
Sub colorX()
For r = 1 To 10
lenr = Len(Cells(r, 1))
For c = 2 To 4
lenc = Len(Cells(r, c))
For i = 1 To lenr
For j = 1 To lenc
If Mid(Cells(r, c), j, 1) = Mid(Cells(r, 1), i, 1) Then
Cells(r, c).Characters(Start:=j, Length:=1).Font.ColorIndex = 3
End If
Next
Next
Next
Next
End Sub
说明: B, C, D 三列的数据, 一定要是文本,如果是是数字,则只会判断第一个字符。
相关阅读 你想学的FILTER函数用法,很全了当Excel体积臃肿,运行卡顿时,我们应该做些什么?带合并单元格的表格,求和计数也不难Excel筛选条件怎么设置ExcelA4页面怎么设置Excel表格A列被隐藏了怎么恢复Excel图例位于底部怎么设置Excel图表怎么嵌入单元格Excel没保存不小心关闭怎么恢复Excel图表怎么设置X轴Y轴
热门文章 excel怎么制作表格?制作excel表格的步骤技巧excel 常见的六个排序方法,你必须要学会excel自动换行显示不全怎么办excel 数据透视表 选定区域不能分组 的原因和解决方法
最新文章
你想学的FILTER函数用法,很全了当Excel体积臃肿,运行卡顿时,我们应该做些什么?
带合并单元格的表格,求和计数也不难Excel筛选条件怎么设置ExcelA4页面怎么设置Excel表格A列被隐藏了怎么恢复
人气排行 excel怎么制作表格?制作excel表格的步骤技巧excel 常见的六个排序方法,你必须要学会excel自动换行显示不全怎么办excel 数据透视表 选定区域不能分组 的原因和解决方法Excel高级筛选怎么用 excel高级筛选多个条件(并且、或用法)excel if函数的多个条件使用方法Excel中的快速填充键ctrl+e没反应,不能用是为什么?excel 判断两列数据是否一致的四种方法
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>