[已解决]查找单元格中的任意数字为“空”

心灵有约

查找单元格中的任意数字为“空”.rar (6.98 KB, 下载次数: 13)

2022-8-5 16:45 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

rlz680926

2022-11-28 14:41

Sub test()
Dim regx As Object
Dim i As Integer
Dim j As Integer
Dim arr
arr = Sheets("原表").UsedRange
Set regx = CreateObject("vbscript.regexp")
regx.Global = True '上面大神的语句里加上这句就行
regx.Pattern = "\d+"
For i = 1 To UBound(arr)
    For j = 1 To UBound(arr, 2)
        Sheets("期望表").Cells(i, j) = regx.Replace(arr(i, j), "空")
    Next
Next
End Sub

跳转到最佳答案楼层

limonet

Sub a()
    Dim Rng As Range, Arr(1 To 3) As String, i%
    With CreateObject("vbscript.regexp")
        .Pattern = "\d+"
        For Each Rng In Range("A1").CurrentRegion
            i = i + 1
            Arr(i) = .Replace(Rng, "空")
        Next
    End With
    [E1].Resize(1, 3) = Arr
End Sub

心灵有约

谢谢。不过，如果一个字符串中有不相连的两处数字，再次运行宏，则只能最左侧的数值变为指定的“空”，也就是宏只能运行一次，能否多次替换直到全部替换为止？如单元格fangj345，改为fang999j345，运行宏后现只能变为fang空j345，期望变为fang空j空

心灵有约

谢谢。不过，如果一个字符串中有不相连的两处数字，再次运行宏，则只能最左侧的数值变为指定的“空”，也就是宏只能运行一次，能否多次替换直到全部替换为止？如单元格fangj345，改为fang999j345，运行宏后现只能变为fang空j345，期望变为fang空j空

rlz680926

Sub test()
Dim regx As Object
Dim i As Integer
Dim j As Integer
Dim arr
arr = Sheets("原表").UsedRange
Set regx = CreateObject("vbscript.regexp")
regx.Global = True '上面大神的语句里加上这句就行
regx.Pattern = "\d+"
For i = 1 To UBound(arr)
    For j = 1 To UBound(arr, 2)
        Sheets("期望表").Cells(i, j) = regx.Replace(arr(i, j), "空")
    Next
Next
End Sub