Excel 我想更改“地址”列中的“道路”一词，但它会更改所有单词，包括“百老汇”一词

我想用透镜，但我不知道怎么做。如果还有更好的方法，请展示并解释。谢谢！：）

编辑：

仍然无法理解，但如果它只是在活动细胞中，并且有这个概念，会怎么样

Dim Original As String
Dim Corrected As String
   
        Original = ActiveCell.Value
   
                Corrected = Replace(Original, "ROAD", "RD")
 


         ActiveCell.Value = Corrected

 

End Sub

---

使用此处概述的基本方法：

Sub ReplaceOnlyWords（）
将ws作为工作表，c作为范围
变暗arrFind、arrReplaceWith、e、v
arrFind=Array（“road”、“street”）'查找这些单词
arrReplaceWith=数组（“rd”、“st”）'替换为以下单词
设置ws=ActiveSheet
对于Application.Intersect（ws.UsedRange，ws.Columns（1））单元格中的每个c
v=c.值
如果Len（v）>0，那么‘有什么可以使用的吗？
c、 Value=ReplaceWords（v、arrFind、arreplaceWith）
如果结束
下一个c
端接头
'在strSource中，将FindThis中的所有单词替换为ReplaceWith中相同位置的单词
公共函数ReplaceWords（strSource、FindThis、ReplaceWith）作为字符串
模糊的re作为对象，s，i作为对象
'检查我们是否有阵列，如果没有，请这样做。。。
'假设两个数组（如果提供）的长度相同
如果不是IsArray（FindThis），则FindThis=Array（FindThis）
如果不是IsArray（ReplaceWith），则ReplaceWith=数组（ReplaceWith）
s=strSource
使用CreateObject（“VBScript.RegExp”）
.Global=True
.IgnoreCase=True“没有选项只替换整句话：您需要使用类似于此处发布的解决方案的内容：
Dim Original As String
Dim Corrected As String
   
        Original = ActiveCell.Value
   
                Corrected = Replace(Original, "ROAD", "RD")
 


         ActiveCell.Value = Corrected

 

End Sub