No.1

字符串替换操作是一个十分有用的功能，一些数据处理过程中，需要对字符串进行修改或替换，vba给我们提供了一个替换函数，本节主要介绍一下替换函数的语法及如何使用。

No.2

替换函数：Replace()

语法如下图所示：

语法：

Replace(expression、 find、 replace、[ start、[ count, [ compare ]]])

[]内的参数是可选参数，本身有默认值，可以不选择。

前三个为必选参数，要必须选择，不然会报错。

Replace函数返回值：

替换函数最终要返回一个值，根据不同参数设置返回不同的值。

这就需要我们对过程当中需要返回什么样的值进行参数设置。

示例：

DIm Str as String

Str="JM is a TouTiao Blog."

Msgbox Replace(Str,"JM","oh")

输出结果：oh is a TouTiao Blog.

把字符"JM"替换为"oh"，然后返回。

如下图所示，根据不同的参数返回不同的字符串值：

No.3

上图中，B列为被搜索字符串，C列为要搜索什么字符串，D列为要替换成的字符串，后面有替换开始位置和替换次数。

替换函数的功能很强大，可以在字符串中找到想要替换的字符串，然后替换为想要的字符串，当然不替换也可以，可以设置替换次数为0就不进行替换，返回原始值。

下图为本示例代码：

Private Sub CommandButton1_Click()
Dim s As Worksheet, cell As Range, xcell As Range
Set s = ActiveSheet
Set cell = s.Range("B3:B10")
For Each xcell In cell
    If VBA.Len(xcell) <> 0 Then
        With xcell
            .Offset(0, 5).Value = Replace( _
            .Value, .Offset(0, 1).Value, _
            .Offset(0, 2).Value, _
            .Offset(0, 3).Value, _
            .Offset(0, 4).Value)
        End With
    End If
Next xcell
End Sub

上面代码要配合本示例表格进行，不然没有意义。

习惯使用函数可以大大提高编程效率，这也是vba提供内置函数的原因，其中内置函数也对执行效率有一定的提高作用。

所以，在编程当中尽可以使用函数是十分必要的。

欢迎关注、收藏

---END---