excel利用VBA比较同行字符串一例
发布时间：2023-01-04 20:23:09
标签：excel,利用,VBA,比较,同行,字符串,一例,如图
如图所示，在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 三列的数据, 一定要是文本，如果是是数字，则只会判断第一个字符。
0
投稿猜你喜欢
- 使用Word编辑文档时，用户需要确定打印出的Word文档页面大小，因此需要设置Word文档页面对应的纸张大小。那么下面就由小编给大家分享下w
- 如何在Word 2016中添加水印？将高级纸放在光下时，它会显示水印-嵌入纸中的图像。图像令人印象深刻但微弱。Word 2016允许您通过在
当我们在使用Windows系统编辑内容时，可以通过删除线造成内容删除的效果，很多小伙伴在编辑文档时都需要使用到删除线，那我们怎么在Word文- 我们在excel表格中进行运算的时候，编辑栏中有都显示运算公式，但是我们想要将它隐藏起来该如何设置呢?下面就跟小编一起看看吧。excel中如
- 下面小编为大家介绍三种列区域转换成行区域的方法，教程比较简单，很适合办公人员学习，好了，下面我们一起来学习吧介绍三种列区域转换成行区域的方法
- 在Excel中常常要输入一些特殊符号，比如对号，这些符号要怎样输入呢？下面小编就为大家详细介绍在Excel中怎么输入平方米和特殊符号方法，一
- 下面小编为大家介绍word翻译不同语言输入的文字方法，相信很多朋友都不是很清楚吧，大家一起来看看吧Word中可以翻译用不同语言输入的文字，如
- 在Word中插入一张图片对于一般人来说都不是难事，但是同时插入多张的图片的话，相信很多的朋友就开始懵了吧。没关系，不懂的话，就和小编一起来学
- Word转成网页方法将Word文档保存或另存为“htm或html”格式即可。找到刚才保存的路径，自己双击打开看看，是不是已经是网页呢！方法很
- win10如何控制应用缩放？最近有很多win10系统的用户问小编如何去控制应用的大小缩放设置，其实方法是很简单的，这里小编为大家带来了win
- word怎么调行高？经常在编辑Word表格的时候，遇到很多表格问题，真难！今天给大家分享下表格中调整行高的这个问题。1.选中表格，进入开始-
- 在制作复杂组织结构图时，如果我们直接在文档中插入SmartArt基础图形，再在SmartArt基础图形中不断添加形状，操作会比较繁琐，且各形
- 许多用户在使用我们的win10系统时，都会发现移动鼠标会出现拖影，这就是鼠标的运行轨迹，这个问题导致用户使用起来很不方便，或部分用户想要使用
- 在使用Word的编辑文档的时候，如果需要在正文之前设置一些目录或者其他的内容，页码就不能从一开始就进行编写，但是Word默认的是从整个文件的
- excel中怎样将图表嵌入到固定区域中？打开Excel，我们先选择一些数据作为图表源数据。然后点击上方的【插入】选项卡，再点击一个图形，形状
- Win10电脑一装系统就出现电脑蓝屏怎么办？许多用户在使用电脑的时候，经常会需要给自己的电脑重装系统，可是最近有的小伙伴反应，自己在使用电脑
- WPS设置字间距的步骤（以WPS文字2013为例）：1、选中要设置字间距的内容。2、按键盘上的CTRL+D，弹出“字体”对话框（也可以在选中
- Excel中在表格内进行排序具体该如何操作呢?下面是小编带来的关于excel表格内进行排序的教程，希望阅读过后对你有所启发!excel表格内
- Word中的“行距”是什么意思?顾名思义，行距就是每行之间的距离、间距，被称为“行距”。在我们使用Word2003进行排版时，常常会将段落之
- 今天在QQ群里有一个人说offset函数用法，但是我感觉他的说法对于那些刚刚解除offset函数的朋友不会有太大帮助，大家可以看下下面的介绍
