Replace的用法~

冰封气流

求助大佬，psss    我想替换为  pssl，只是举个例子，必须用Replace，我该怎么替换？
Sub qq()
    Dim t
    t = "psss"
    Range("b2") = Replace(t, "s", "l", 4, 1)      '运行结果却是  l
End Sub
请各位解救，只能用Replace，能否做到？

wlianke

Range("b2") = Replace(t, 4, 1,"l")

沈默00

wlianke

或者：Range("b2") = Replace(t, 1, 4,"pssl")

沈默00

多看下几个参数的用法，

tanglf188

把字符串中指定的部分替换为另一字符串

语法：Replace(expression, find, replace, [ start, [ count, [ compare ]]])
        参数                说明
    expression        必填，包含要替换的子字符串的字符串表达式
    find                必填，要搜索的子字符串
    replace                必填，替换子字符串
    start                可选，要搜索和返回的 表达式 的子字符串的起始位置。 如果省略，则假定此值为 1
    count                可选，要执行子字符串替换的次数。 如果省略，则默认值为 -1，这意味着，进行所有可能的替换
    compare        可选，指示计算子字符串时要使用的比较类别的数值。 各个值说明如下
        compare 参数可以包含以下值：
        常量                        值        说明
        vbUseCompareOption        -1        使用 Option Compare 语句的设置来执行比较
        vbBinaryCompare        0        执行二进制比较
        vbTextCompare        1        执行文本比较
        vbDatabaseCompare        2        仅用于 Microsoft Access。 根据数据库中的信息执行比较

返回值：
        条件                        返回
    expression是零长度的        零长度字符串 ("")
    expression是Null                错误
    find是零长度的                expression的副本
    replace是零长度的                删除所有查找匹配项的表达式副本
    开始>Len (表达式)                零长度字符串，字符串替换从start指示的位置开始
    count是0                expression的副本

示例：
     Replace(st, " ", "", 1, -1, 1) '把st变量的里所有的空格全部替换掉

ykcbf1100

3楼是正解。。。