求助：Excel VBA实现E0开头实体编码及对应名称批量加粗

Excel单元格中存在重复格式的内容：实体编码及名称（如E01112 Japan）、金额（如$2或($2)）、说明文本，示例内容如下：

E00011 China $56 it is due to rain E00022 Italy ($45) It is due to sun……

需求是将每个「实体编码+对应名称」的组合设置为加粗格式。现有VBA代码以E0为检索条件时，仅能加粗实体编码部分，无法包含后续名称：

Sub bold_text_start_string()
    Dim r As Range
    Dim cell As Range
    Dim counter As Integer
    Set r = Range("c1:c10")
    text_value = InputBox("Please Enter start Text You Want to Search and Bold")
    For Each cell In r
    If InStr(cell.Text, text_value) Then
    cell.Characters(WorksheetFunction.Find(text_value, cell.Value), Len(text_value) + 4).Font.Bold = True
    End If
Next

原代码问题在于固定了加粗的字符长度（Len(text_value)+4），无法适配不同长度的名称。改用正则表达式匹配「E开头编码+空格+名称」的完整组合，即可实现编码与名称同时加粗：

Sub BoldEntityAndName()
    Dim rng As Range
    Dim cell As Range
    Dim regEx As Object
    Dim matches As Object
    Dim match As Object
    
    ' 设置目标单元格范围，可根据需求修改
    Set rng = Range("C1:C10")
    ' 初始化正则表达式对象
    Set regEx = CreateObject("VBScript.RegExp")
    With regEx
        .Global = True ' 匹配单元格内所有符合条件的内容
        .Pattern = "\bE\d+\s+\w+" ' 匹配规则：E开头+数字+空格+名称单词
    End With
    
    For Each cell In rng
        If cell.Value <> "" Then
            Set matches = regEx.Execute(cell.Value)
            For Each match In matches
                ' 对匹配到的内容设置加粗
                cell.Characters(match.FirstIndex + 1, match.Length).Font.Bold = True
            Next match
        End If
    Next cell
End Sub

代码说明 #

• 正则表达式\bE\d+\s+\w+：
  • \b：单词边界，避免匹配类似XE0123的内容
  • E\d+：匹配以E开头的实体编码（后续跟1个或多个数字）
  • \s+：匹配编码与名称之间的空格
  • \w+：匹配名称（由字母、数字、下划线组成，适配常规名称）
• 如果名称包含空格（如E00033 United States），可将正则模式修改为\bE\d+\s+.+?(?=\s*\$)，表示匹配到下一个$符号前的所有内容（适配带空格的名称）
• 无需输入检索条件，代码自动匹配所有符合格式的实体编码+名称组合

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