[原创]比Substitute功能更强的批量替换文本函数NewText(6楼更新)

gvntw

oDZAiItQ.rar (8.4 KB, 下载次数: 953)

2006-9-29 14:06 上传

点击文件名下载附件
[原创]比 Subtitute 功能更强的批量替换文本函数 NewText

[此贴子已经被作者于2006-9-30 9:36:33编辑过]

liujy

谢谢gvntw版主分享!收藏了.

lewis16888

有用 謝謝版主

BIN_YANG168

好东东,谢谢G版.

gvntw

更新，可替换其他文本。

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

luo159

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

等价于

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

chenhuafu

怎么把它发表在“基础版”，差点漏过了这个精彩的帖子。应该发到“函数版”啊！

Kelidai

谢谢分享，函数用时方恨少。

luckey

谢谢楼主，但是我看不懂啊？

aichong

不错，收藏了。谢谢分享！