Public Function MyReplace(rng As Range


Public Function MyReplace(rng As Range, strFrom As String, strTo As String) As String
'Merge = ThisWorkbook.Name
Dim Str As String
Str = ""
Dim n As Range
For Each n In rng
   If n.Value <> "" Then
      Str = Replace(n.Value, strFrom, strTo)
   End If
Next n

'If Right(Str, 1) = splitter Then
'  Str = Left(Str, Len(Str) - 1)
'End If

MyReplace = Str

End Function


阅读更多
个人分类: vb基础 vb
想对作者说点什么? 我来说一句

MyReplace字符串替换工具

2009年05月05日 8KB 下载

MyReplace文件内容修改替换

2013年12月06日 17KB 下载

没有更多推荐了,返回首页

不良信息举报

Public Function MyReplace(rng As Range

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭