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

Will.li

学习了。不过这个自定义函数有点小问题，版主漏考虑一种情况了。当文本中存在逗号时，第二个参数不能输入逗号来替换，只能在单元格中输入逗号，第二参数引用单元格，这样才能替换。
比如B1单元格输入含有逗号的字符串，abc,,,defghijklmn,,,
用公式=newtext(B1,",")，结果不成功。
小改动了一下，如果第二个参数是逗号或者含有连续的两个及以上的逗号则表示替换逗号本身。
NewText.rar (9.99 KB, 下载次数: 27)

2012-3-3 17:12 上传

点击文件名下载附件

1. Option Explicit
   
2. Function NewText(r As String, s As Variant, Optional ss = "")
   
3.     Dim i As Integer
   
4.     Dim myRange As Range
   
5.     Dim st, rng, test
   
6.    
   
7.     rng = r
   
8.    
   
9.     Select Case VBA.TypeName(s)
   
10.     Case "String"
    
11.    
    
12.         If s = "," Then
    
13.             NewText = VBA.Replace(rng, s, ss)
    
14.             Exit Function
    
15.         End If
    
16.         
    
17.         st = Split(s, ",")
    
18.         
    
19.         For i = 0 To UBound(st)
    
20.             If i < UBound(st) Then
    
21.                 If st(i) = "" And st(i + 1) = "" Then
    
22.                     test = VBA.Replace(rng, ",", ss)
    
23.                 Else
    
24.                     test = VBA.Replace(rng, st(i), ss)
    
25.                 End If
    
26.             Else
    
27.                 test = VBA.Replace(rng, st(i), ss)
    
28.             End If
    
29.             
    
30.             rng = test
    
31.         Next
    
32.     Case "Range"
    
33.         For Each myRange In s
    
34.             test = VBA.Replace(rng, myRange, ss)
    
35.             rng = test
    
36.         Next
    
37.     End Select
    
38.    
    
39.     NewText = test
    
40. End Function

复制代码

好大一棵树王玉

看不懂,还得继续学习!

zyhzhang

下载了，谢谢分享，辛苦了

雨泥鳅

函数用时方恨少，的确

鱼不好吃

为什么 r as string
参数定义为字符串，可以选择单元格区域呢？

马尔斯

有用 謝謝版主

yahcat

gvntw 发表于 2006-9-30 09:31
更新，可替换其他文本。Option ExplicitFunction NewText(r As String, s As Variant, Optional ss = "")&n ...

研究研究怎么实现的

walle666

学习了，谢谢

treefive

谢谢楼主，顶起来。

sh205

感谢楼主分享！！