请老师帮忙删除数值

qdchyq

请老师帮忙删除单元格中的1.，2.，3.等序号和.       。谢谢老师

洋务德雷

查找替换不就可以了吗？

limonet

思路：
1、WORD中通配符批量替换
2、EXCEL中正则替换。

limonet

关键字：(?=)

limonet

Sub limonet()
    Dim i%
    With CreateObject("vbscript.regexp")
        .Pattern = "\d[\.．](\s+)?(?=[一-龥])"
        .Global = True:
            For i = 1 To 2
                Cells(i, "B") = .Replace(Cells(i, "A"), "")
            Next i
    End With
End Sub

limonet

i的最大值你改一下。

qdchyq

谢谢老师，非常感谢

zhangcheng6688

正则表达式，留底

qdchyq

limonet 发表于 2024-7-5 11:54
i的最大值你改一下。

老师，只能删除单位数，那两位，三位数呢

qdchyq

Sub limonet()
    Dim i%
    With CreateObject("vbscript.regexp")
       .Pattern = "\d{1,2}[.．](\s+)?(?=[一-龥])|(?:\(|\（)(\d+(?:\s+\d+)*)(?:\)|\）)"   '正则表达式以匹配一个或两个数字后面跟着一个点或中文顿号修改\d{1,2}中的2
      
        .Global = True:
            For i = 2 To 30
                Cells(i, "R") = .Replace(Cells(i, "F"), "")
            Next i
    End With
End Sub