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

2020-06-04 17:46:01  阅读 231 次 评论 0 条
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升级版


本文地址:https://www.wpsds.com/wpsbg/180.html
版权声明:本文为原创文章,版权归 达叔 所有,欢迎分享本文,转载请保留出处!
WPS达师专注于免费分享WPS Office使用教程、PPT、word模板及办公常用软件等资源,欢迎大家收藏和分享本站。
WPS交流群:121023130

发表评论


表情

还没有留言,还不快点抢沙发?