字符串的查找与替换

版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/fourSeasonBeans/article/details/84203816

微信公众号原文

难度系数：初级

系统：Windows 7
软件：Excel 2010

学习路径图：

• 针对之前的学习路径图，会针对的写一些文章
• 今天讲讲字符串的查找与替换：InStr，Find，Substitute

Part 1：函数功能介绍

1. InStr，判断字符串1是否包含字符串2
2. Find，寻找字符串1在字符串2中出现的位置（从1开始）
3. Substitute，将字符串中的信息替换为新的信息

Part 2：代码

Sub 查找与替换()
    x1 = "def-a-new-function"
    x2 = "def"
    x3 = "e"
    
    If InStr(x1, x2) <> 0 Then
        Debug.Print ("位置1：x1中包含x2")
    Else
        Debug.Print ("位置2：x1中不包含x2")
    End If
    
    pos = Application.Find(x3, x1)
    Debug.Print ("位置3：" & pos)
    
    y = Application.Substitute(x1, "e", "a")
    Debug.Print ("位置4：" & y)
    
End Sub

代码截图

运行结果

Part 3：部分代码解读

1. InStr(x1, x2)，通过将结果与0进行比较，判断x1中是否包含x2
2. Application.Find(x3, x1)，判断x3首次在x1中出现的位置，其为工作表函数，即在Excel公式中也可以使用
3. Application.Substitute(x1, "e", "a")，将x1中所有e字符全部替换为a
4. 这些函数还有其它一些参数，可以个性化做一些设置，具体可以F1查看一下帮助文件

官方帮助

---

• 如需文中高清并可以无限放大路径图，可以文后留言留下邮箱，小编会发过去
• 本文为原创作品，如需转载，可加小编微信号learningBin

---

更多精彩，请关注微信公众号
扫描二维码，关注本公众号