Excel用正则表达式，怎么把电话号码后4为替换为****各位大佬指导一下

芯友网 Excel 正则替换

Excel用正则表达式，怎么把电话号码后4为替换为****各位大佬指导一下

钱缺行五.

用正则表达式，怎么把电话号码后4为替换为****
ALL.:)指导一下

uohSauR.江浙

right(123,"****")

钱缺行五.

?浙江-RuaShou 很多电话号码在一个单元格呀！

uohSauR.江浙

正则不好处理啊

费收劳代.费免路思

可以处理

uohSauR.江浙

用split电话加right替换

费收劳代.费免路思

钱缺行五.

谢了波老

砾沙.都成

(\d{4})\w

钱缺行五.

我还是想研究一下

e mo ttcefre per auoy.州郴

钱缺行五.

我就是想替换掉这个捕获组

e mo ttcefre per auoy.州郴

为什么要用正则呢
直接处理字符串呀

钱缺行五.

因为有些时候会在word处理文本
我看到别人word的通配符是可以做到的
我就想用正则在Excel试试

e mo ttcefre per auoy.州郴

看错群了。我还以为是Python群

钱缺行五.

看出你说python啊

e mo ttcefre per auoy.州郴

昨天搞了个爬小说

钱缺行五.

厉害，我不会爬

e mo ttcefre per auoy.州郴

看着视频搞，还搞了我一天
你说厉害不

钱缺行五.

成了，以后就快了
我这个替换琢磨一天，还在原地

如果琢磨成功了，以后就可以这么干了

snafLECXE.亚尼巴尔阿

这个就是把数字两倍了啊

eeWeD

数字位置固定，直接定位乘倍数不行？

磊刘.国德

=REPLACE(REPLACE(A1,4,3,MID(A1,4,3)*2),10,3,MID(A1,10,3)*2)

？下，excel有什么办法可以对比版本变动吗
就像word的比较功能那样的

PO.兰荷

钱缺行五.

这种情况是怎么做到的呢？

llewsneZ.头汕

爬到的

eeWeD

网抓

钱缺行五.

看来要学的还很多
?德国-刘磊 ?南通-DeWee 谢谢了

——═▇▇▇▇┣.海上

这个两号如何递增往下下一个单元格写呀

llewsneZ.头汕

For循环

——═▇▇▇▇┣.海上

哦
是有一个数据就点一下按钮
第二次点 i 还是2

王大山

和几次点有什么关系？

砾沙.都成

把dim换成static

——═▇▇▇▇┣.海上

好的

彩精写书✍

?上海-┣▇▇▇▇═—— i=2每次都被初始化了
把i设为公共变量

——═▇▇▇▇┣.海上

怎么设置呀

彩精写书✍

写在sub 之外

——═▇▇▇▇┣.海上

哦
不会写

彩精写书✍

?上海-┣▇▇▇▇═—— 代码复制出来
我手机改
?上海-┣▇▇▇▇═—— ？？人呢

王大山

跑了

彩精写书✍

。。。

钱缺行五.

Sub RegExpDemo74_2()
    Dim strTxt As String
    Dim objRegEx As Object
    Dim c As Range
    Set objRegEx = CreateObject("vbscript.regexp")
    objRegEx.Global = True
    objRegEx.Pattern = "(\d+)"
    For Each c In Range([A2], Cells(Rows.Count, "A").End(xlUp))
        strTxt = c.Value
        If objRegEx.test(strTxt) Then
            c.Offset(0, 1) = Application.Evaluate(Chr(34) & objRegEx.Replace(strTxt, """&$1*2&""") & Chr(34))
        End If
    Next
    Set objRegEx = Nothing
End Sub