重庆中职学校 中职招生 中职报考中心 重庆职校报名网 公办重点中职招生办电话 重庆职校报名网 重庆中专学校招生

如图所示,在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”变成红色。

    excel利用VBA比较同行字符串一例 

    下面是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 三列的数据, 一定要是文本,如果是是数字,则只会判断第一个字符。

重庆中职学校 中职招生 中职报考中心 重庆职校报名网 公办重点中职招生办电话 重庆职校报名网 重庆中专学校招生
版权声明

本文仅代表作者观点,不代表本站立场。
本站资源均来自互联网整理,版权归原作者所有,切勿用作非法使用和未经授权的商用,因此带来的法律风险与本站无关。

本文链接:http://www.chousj.cn/exceljc/704.html

发表评论

评论列表(0人评论 , 24人围观)
☹还没有评论,来说两句吧...

免费资源分享网_电脑操作教程_免费源代码下载_免费字体下载_高清电脑壁纸

http://www.chousj.cn/

| 渝ICP备15004826号

Powered By

使用手机软件扫描微信二维码

关注我们可获取更多热点资讯

Honor accompaniments. theme qk_xmh