excel vba replace函数的使用方法

天涯浪子 提交于 2020-03-01 20:15:37

Repalace函数是vba中常用的字符替换函数,本文介绍了replace的基本使用方法,6个参数的意思。

Sub replacetest()

Dim str As String
Dim str2 As String
str = "ababab"
'vba.Replace("在哪儿找","找什么(需要被替换掉的部分)","换成什么","从第几个字符开始找","替换几次","匹配方式")
'一共六个参数
'例1
str2 = Replace(str, "a", 1)
'把str中的全部替换为1
'str2 会被替换成1b1b1b

'例2
str2 = Replace(str, "a", 1, 3)
'第四个参数说明从第3个字符开始替换,替换结果会舍掉前两个字符。
'str2会被替换成1b1b

'例3
str2 = Replace(str, "a", 1, 3, 1)
'第五个参数是替换次数,默认是替换全部,设置为1的话,就只替换第一次出现的a;
'这句代码的意思是从第3个开始的第1个a
'str2会被替换为1bab

'例4
str2 = Replace(str, "A", 1, , , vbBinaryCompare)
'第六个参数为二进制匹配时,区分大小写;结果为ababab
str2 = Replace(str, "A", 1, , , vbTextCompare)
'第六个参数为文本匹配时,不区分大小写;结果为1b1b1b

MsgBox str2
End Sub

易学教程内所有资源均来自网络或用户发布的内容,如有违反法律规定的内容欢迎反馈
该文章没有解决你所遇到的问题?点击提问,说说你的问题,让更多的人一起探讨吧!