保留首个指定单词实例并移除其余重复指定单词的VBA函数需求

你的原代码问题在于通过Split(rng.Value, " and ")将字符串按" and "分割，再用字典去重拼接，这会直接移除所有"and"分隔符。要保留第一个独立的"and"并移除后续实例，可通过定位第一个"and"的位置分部分处理：

Function RemoveExtraAnds(rng As Range) As String
    Dim originalStr As String
    Dim firstAndPos As Long
    Dim part1 As String, part2 As String
    
    originalStr = rng.Value
    firstAndPos = InStr(originalStr, " and ")
    
    ' 未找到"and"直接返回原字符串
    If firstAndPos = 0 Then
        RemoveExtraAnds = originalStr
        Exit Function
    End If
    
    ' 截取包含第一个"and"的前半段
    part1 = Left(originalStr, firstAndPos + Len(" and ") - 1)
    ' 截取第一个"and"之后的剩余部分
    part2 = Mid(originalStr, firstAndPos + Len(" and "))
    
    ' 将剩余部分中的所有" and "替换为空格
    part2 = Replace(part2, " and ", " ")
    
    ' 拼接两部分得到结果
    RemoveExtraAnds = part1 & part2
End Function

关键逻辑说明 #

1. 精准匹配独立"and"：通过" and "（带前后空格）匹配，避免误删单词内部的"and"（如"thousand"中的片段）。
2. 保留首个实例：拆分字符串时保留包含第一个"and"的前半段，只处理后续部分的"and"。
3. 移除后续实例：将后半段所有独立的"and"替换为空格，彻底移除多余的"and"同时不破坏其他词汇结构。

测试验证 #

输入字符串：

Two Thousand and Two Hundred and Point Thirty

处理后输出：

Two Thousand and Two Hundred Point Thirty

该方案不会影响其他重复词汇（如"Two"），完全符合需求。

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