求excel 公式， 根据答案将选项正确标记

作者：wallacebai 发布时间：2 小时前

求一个好用的公式，根据所给的答案，将对应的选项标记成红色字体。我用的是Excel 2016, 网上哪些根据条件格式的操作都没好用，希望哪位好心人帮我建立一个模板，后续数据我填入后直接下拉就行了。文件例子在蓝奏链接里。https://wwnp.lanzouu.com/iiCq237f515c 密码:bxsb

公式, 标记

相关帖子

Arcticlyc 1 小时前

https://c.wss.cc/f/i445afya3yr 复制链接到浏览器打开

wangpj520 1 小时前

Sub MarkCorrectOptions()
Dim lastRow As Long
Dim i As Long
Dim answer As String

lastRow = Cells(Rows.Count, "E").End(xlUp).Row

' 清除所有字体颜色
Range("B2:E" & lastRow).Font.Color = vbBlack

' 遍历每一行
For i = 2 To lastRow
      answer = Trim(Cells(i, 5).Value) ' E列答案

      If answer  "" Then
         ' 检查每个选项的首字母是否匹配答案
         If Left(Cells(i, 2).Value, 1) = answer Then Cells(i, 2).Font.Color = vbRed
         If Left(Cells(i, 3).Value, 1) = answer Then Cells(i, 3).Font.Color = vbRed
         If Left(Cells(i, 4).Value, 1) = answer Then Cells(i, 4).Font.Color = vbRed
         If Left(Cells(i, 5).Value, 1) = answer Then Cells(i, 5).Font.Color = vbRed
      End If
Next i
End Sub
测试完美运行
使用方法：
按 Alt + F11打开VBA编辑器
在左侧项目资源管理器右键 → 插入 → 模块
粘贴上述代码
按 F5运行，或回到Excel中按 Alt + F8选择宏运行

wallacebai

OP

1 小时前

wangpj520 发表于 2025-10-1 19:06
Sub MarkCorrectOptions()
Dim lastRow As Long
Dim i As Long
非常感谢，就是答案是A的都漏掉了，不知什么原因。

wallacebai

OP

1 小时前

Arcticlyc 发表于 2025-10-1 18:59
https://c.wss.cc/f/i445afya3yr 复制链接到浏览器打开
能说一下原理吗？

wangpj520 1 小时前

wallacebai 发表于 2025-10-1 19:50
能说一下原理吗？
条件格式选项卡

wallacebai

OP

1 小时前

wangpj520 发表于 2025-10-1 20:21
条件格式选项卡
网上教的方法我都试验了一下，没有搞定，能具体一点吗

wangpj520 1 小时前

wallacebai 发表于 2025-10-1 20:28
网上教的方法我都试验了一下，没有搞定，能具体一点吗
管理规则里面添加规则使用公式表示要设置格式的表格=LEFT(A2)=$E2 应用范围选择 A 2：D16

wangpj520 1 小时前

wallacebai 发表于 2025-10-1 20:28
网上教的方法我都试验了一下，没有搞定，能具体一点吗

求excel 公式，根据答案将选项正确标记

相关帖子

浏览过的版块

热门主题

这个国庆决定一点都不更新网站！

网址终于绿了，好久没用这种绿网址了

收录了很多黄色链接，有遇到过的朋友吗，如

求倪师天纪中推荐的15本书！一定要全！

求一款佳能3600能用的清零软件