如何用VBA函数在单元格中高亮指定精确文本RDTN、RDAN为红色

原代码存在几个问题：只能匹配单元格内第一个出现的RDTN，Length:=Length:=Lencolor属于重复参数赋值的语法错误，未支持RDAN，也无法处理同一单元格内多次出现目标代码的情况。以下是修正后的代码：

Private Sub Workbook_Open()
    Dim i As Long
    Dim findPos As Long
    Dim targetCodes As Variant
    Dim code As Variant
    
    ' 定义需要高亮的目标代码集合
    targetCodes = Array("RDTN", "RDAN")
    
    ' 遍历第5列的2到21500行数据
    For i = 2 To 21500
        With Sheets("sheet1").Cells(i, 5)
            ' 逐个处理每个目标代码
            For Each code In targetCodes
                findPos = 1
                ' 循环查找当前单元格内所有目标代码的位置
                Do
                    findPos = InStr(findPos, .Value, code)
                    If findPos <> 0 Then
                        ' 高亮找到的目标代码（利用代码自身长度精准匹配）
                        .Characters(Start:=findPos, Length:=Len(code)).Font.Color = RGB(255, 0, 0)
                        ' 移动查找起始位，避免重复匹配同一内容
                        findPos = findPos + Len(code)
                    End If
                Loop While findPos <> 0
            Next code
        End With
    Next i
End Sub

关键调整说明： #

• 修复原代码的Length参数语法错误，直接使用目标代码的自身长度（Len(code)），精准高亮目标内容，避免误高亮多余文本
• 新增targetCodes数组，同时支持RDTN和RDAN两个代码，后续新增其他需要高亮的代码只需在数组内添加即可
• 加入Do...Loop循环逻辑，实现同一单元格内多次出现目标代码的全量高亮
• 将变量i的类型从Integer改为Long，避免行数超过32767时出现数值溢出问题

内容的提问来源于stack exchange，提问作者Daniel_Diamond