看起来你已经有了初步的思路，但还没把各个部分的逻辑整合起来。我来帮你完善代码，实现把h1-h5标签内的文本转小写，同时保留2个及以上字符的全大写缩写，并且让国家名保持首字母大写的需求。

整体思路拆解 #

我们需要完成三个核心步骤：

1. 从HTML代码中精准提取<h1>到<h5>标签内的文本内容
2. 对提取的文本进行格式化：
   • 普通单词转小写
   • 原文本中2个及以上字符的全大写缩写（比如HR、LTD）保留大写
   • 国家名转为首字母大写格式
3. 将处理后的文本替换回原HTML标签中

完整VBA代码实现 #

先插入一个新模块，把以下代码粘贴进去：

' 处理标题文本的核心函数：转小写+保留缩写+国家名大写
Function ProcessHeaderText(inputText As String) As String
    Dim words() As String
    Dim i As Integer, j As Integer, k As Integer
    Dim countryList As Variant
    Dim isAcronym As Boolean
    Dim isCountry As Boolean
    
    ' 定义需要识别的国家名单（可根据需求自行扩展）
    countryList = Array("argentina", "brazil", "canada", "china", "france", _
                       "germany", "india", "italy", "japan", "mexico", _
                       "russia", "spain", "united states", "uk", "australia")
    
    ' 按空格拆分文本为单词数组
    words = Split(inputText, " ")
    
    ' 逐个处理单词
    For i = LBound(words) To UBound(words)
        ' 判断是否是原文本中的全大写缩写（长度≥2）
        isAcronym = (StrComp(words(i), UCase(words(i)), vbBinaryCompare) = 0) And (Len(words(i)) >= 2)
        ' 判断是否是国家名（转小写后匹配名单）
        isCountry = Not IsError(Application.Match(LCase(words(i)), countryList, 0))
        
        Select Case True
            Case isAcronym
                ' 保留大写缩写
                words(i) = UCase(words(i))
            Case isCountry
                ' 国家名转首字母大写
                words(i) = StrConv(LCase(words(i)), vbProperCase)
            Case Else
                ' 普通单词转小写
                words(i) = LCase(words(i))
        End Select
    Next i
    
    ' 处理多单词组成的国家名（比如"United States"）
    For j = LBound(words) To UBound(words) - 1
        Dim combinedWord As String
        combinedWord = LCase(words(j) & " " & words(j + 1))
        If Not IsError(Application.Match(combinedWord, countryList, 0)) Then
            words(j) = StrConv(combinedWord, vbProperCase)
            words(j + 1) = "" ' 标记后续要移除的重复单词
        End If
    Next j
    
    ' 过滤掉空字符串（处理多单词国家名后产生的空项）
    Dim filteredWords() As String
    k = 0
    ReDim filteredWords(0 To UBound(words))
    For i = LBound(words) To UBound(words)
        If words(i) <> "" Then
            filteredWords(k) = words(i)
            k = k + 1
        End If
    Next i
    ReDim Preserve filteredWords(0 To k - 1)
    
    ' 重新拼接成完整文本
    ProcessHeaderText = Join(filteredWords, " ")
End Function

' 主过程：遍历单元格，处理HTML中的h1-h5标签
Sub UpdateHTMLHeadings()
    Dim rng As Range
    Dim cell As Range
    Dim regEx As Object
    Dim matches As Object
    Dim match As Object
    
    ' ********** 按需修改这里的工作表和单元格范围 **********
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:A100")
    
    ' 创建正则表达式对象，用于匹配h1-h5标签
    Set regEx = CreateObject("VBScript.RegExp")
    With regEx
        .Global = True ' 匹配所有出现的h标签
        .IgnoreCase = True ' 不区分大小写
        ' 正则模式：匹配h1-h5标签，捕获标签级别和内部文本（兼容带属性的标签，比如<h1 class="title">）
        .Pattern = "<h([1-5])[^>]*>(.*?)</h\1>"
    End With
    
    ' 遍历每个单元格处理
    For Each cell In rng
        If Not IsEmpty(cell.Value) Then
            Set matches = regEx.Execute(cell.Value)
            If matches.Count > 0 Then
                Dim modifiedHTML As String
                modifiedHTML = cell.Value
                
                ' 替换每个匹配到的h标签内的文本
                For Each match In matches
                    Dim originalText As String
                    originalText = match.SubMatches(1)
                    Dim processedText As String
                    processedText = ProcessHeaderText(originalText)
                    ' 替换原文本为处理后的内容
                    modifiedHTML = Replace(modifiedHTML, originalText, processedText, , , vbBinaryCompare)
                Next match
                
                ' 将处理后的HTML写回单元格
                cell.Value = modifiedHTML
            End If
        End If
    Next cell
    
    ' 清理对象，释放内存
    Set regEx = Nothing
    Set matches = Nothing
    Set rng = Nothing
End Sub

代码说明和使用步骤 #

1. 国家名单扩展：你可以在ProcessHeaderText函数的countryList数组中添加更多国家名，确保所有需要识别的国家都在列表里。
2. 调整处理范围：在UpdateHTMLHeadings过程中，修改Sheet1和A1:A100为你实际的工作表名称和单元格范围。
3. 运行宏：按Alt+F11打开VBA编辑器，找到插入的模块，运行UpdateHTMLHeadings宏即可。

测试示例 #

对于你给出的示例：

<h1>HR Policies and Procedures for Hiring - argentina LTD</h1>

处理后会变成：

<h1>HR policies and procedures for hiring - Argentina LTD</h1>

完全符合你的需求：保留了HR、LTD的大写，把argentina转为首字母大写，其他普通单词转成了小写。

为什么你的原有代码没生效？ #

你之前的Capit函数只是把非全大写单词转成首字母大写，FindAcronyms函数虽然能识别缩写，但没有和转小写、国家名处理的逻辑整合起来。上面的代码把这三个需求的逻辑完全融合，同时用正则表达式更精准地匹配HTML的h标签（兼容带属性的标签），解决了之前的问题。

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