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
投稿猜你喜欢
- Excel中的行数和猎术具体该如何设置显示呢?接下来是小编为大家带来的excel中设置显示行列数的教程，供大家参考。excel中设置显示行列
- 怎样用OCT2BIN函数将八进制数 疾速转换二进制数呢？选中（A1） 单位格， 挑选 拔出函数，选中OCT2BIN。在这里 需求填两个数值。
大家都清楚，使用电脑下载的软件一般都是默认安装在系统盘（也就是C盘）当中，然而C盘安装过多就会严重影响到系统的运行，而最近有Win10用户询- 一些用户看了苹果电脑的桌面后，觉的苹果桌面非常的漂亮，尤其是任务栏的设计。那么，Windows系统能拥有跟苹果一样的桌面吗？办法是有的，不过
- 在以往的版本中，WPS 笔墨 拔出页码与WORD2003的 操纵 根本 分歧， 便是点击【 拔出】→【页码】， 而后在弹出的【页码】 配置面
- 在资源管理器或者“计算机”里面无法打开文件夹，鼠标双击不是打开文件夹而是进入了搜索界面，可以通过修改注册表来恢复，详细的操作步骤如下问题描述
- 你在这里因为你有，有一个文件扩展名结尾的文件 .awb. 文件与文件扩展名 .awb 只能通过特定的应用程序推出。这有可能是 .awb 文件
- 由于火狐浏览器默认开启了自动更新功能，许多刚刚接触该软件的新手都会在没有准备的情况下迎来一个新的版本，并告别自己熟悉的操作界面。当然，不喜欢
- IF函数，恐怕是大家接触的最早，用的最多的一个函数了吧……如果你仅仅用它来做简单的判断，那就有点儿浪费IF函数了……一、IF函数：基础功能及
- 第1步，打开Word2013文档窗口，切换到“审阅”选项卡。选中英文单词，并在“校对”区域单击“同义词库”按钮，如图1所示。
- 苹果iOS 11.3正式版什么时候更新？目前iOS 11.3系统已经进入到了第六个测试版，按理来说正式版应该马上就要来了，根据多家美国媒体给
- 不少用户为了体验新功能，都已经将系统升级到了win10正式版。不过，他们在升级后也遇到了一些问题，其中一个就是更新win10后上网速度变慢了
- 中华万年历APP怎么设置闹钟及日程？中华万年历APP是款热门的日历软件，具有传统黄历、日程记录、提供个性化阅读服务、生活提醒服务等，那么我们
- 一些网友将电脑升级为win8系统之后都会遇到软件兼容的问题，也就是一些软件在win8系统上使用不了。比如：主要用来查看电脑属性的检测软件：鲁
- Win11系统连接蓝牙的方法介绍？打开蓝牙可以连接耳机，或是手机，或是别的蓝牙设备。非常方便用户的无线操作，那么在新的win11系统里，打开
- 有的朋友安装了Win7英文版的系统，可是发现实在是对英文太不熟悉了，想改为中文版的。那么Win7系统英文版怎么改回简体中文？下面小编就给大家
- 在制作wps表格的时候，要怎么设置纸张的大小呢?下面小编就为你介绍wps表格纸张怎么设置大小的方法啦!wps表格纸张设置大小的方法：可以通过
- 现在不管是娱乐还是工作，都越来越离不开电脑，很多用户都会将一些重要文件存放在电脑中，如果说没有备份的话，极易造成一些文件丢失，那么在这种情况
- 有Win10用户在打开笔记本电脑后，右下角出现提示：“未检测到电池”，这是什么原因呢？下面小编就给大家带来Win10笔记本未检测到电池的解决
- 求和非常简单，也有很多不同的操作，那就让我们一起来盘点下常用的Excel求和吧。简单的、复杂的统统都有，职场小白快来选一款喜欢的抱走吧。一、
