钱缺行五.
用正则表达式，怎么把电话号码后4为替换为****ALL.:)指导一下uohSauR.江浙
right(123,"****")
钱缺行五.
?浙江-RuaShou 很多电话号码在一个单元格呀！
uohSauR.江浙
用split电话加right替换
钱缺行五.
我还是想研究一下
e mo ttcefre per auoy.州郴
为什么要用正则呢
直接处理字符串呀
钱缺行五.
因为有些时候会在word处理文本
我看到别人word的通配符是可以做到的
我就想用正则在Excel试试
e mo ttcefre per auoy.州郴
看错群了。我还以为是Python群
e mo ttcefre per auoy.州郴
昨天搞了个爬小说
e mo ttcefre per auoy.州郴
看着视频搞，还搞了我一天
你说厉害不
钱缺行五.
成了，以后就快了我这个替换琢磨一天，还在原地
如果琢磨成功了，以后就可以这么干了 snafLECXE.亚尼巴尔阿
这个就是把数字两倍了啊
磊刘.国德
=REPLACE(REPLACE(A1,4,3,MID(A1,4,3)*2),10,3,MID(A1,10,3)*2)PO
？下，excel有什么办法可以对比版本变动吗
就像word的比较功能那样的
钱缺行五.
这种情况是怎么做到的呢？钱缺行五.
看来要学的还很多
?德国-刘磊 ?南通-DeWee 谢谢了
——═▇▇▇▇┣.海上
这个两号如何递增往下下一个单元格写呀——═▇▇▇▇┣.海上
哦
是有一个数据就点一下按钮
第二次点 i 还是2
彩精写书✍
?上海-┣▇▇▇▇═—— i=2每次都被初始化了
把i设为公共变量
彩精写书✍
?上海-┣▇▇▇▇═—— 代码复制出来
我手机改
?上海-┣▇▇▇▇═—— ？？人呢
钱缺行五.
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
这个两号如何递增往下下一个单元格写呀
