当前位置:首页 > WPS表格 > 正文内容

自定义多个内容替换函数substitute升级版

达叔1个月前 (06-04)WPS表格65
Option Explicit
Function NewText(r As String, s As Variant, Optional ss = "")
    Dim i As Integer
    Dim myRange As Range
    Dim st, rng, test
    rng = r
    Select Case VBA.TypeName(s)
    Case "String"
        st = Split(s, ",")
        For i = 0 To UBound(st)
            test = VBA.Replace(rng, st(i), ss)
            rng = test
        Next
    Case "Range"
        For Each myRange In s
            test = VBA.Replace(rng, myRange, ss)
            rng = test
        Next
    End Select
    NewText = test
End Function


=NewText(A1,"A,B","C")

等于

=SUBSTITUTE(SUBSTITUTE(A1,"A","C"),"B","C")

SUBSTITUTE升级版


标签: substitute
版权声明:本文由WPS达师发布,如需转载请注明出处。