如何分离数字和汉字多个excel位置不同

huipu20220102

看看这个帖子，你想咋样都行
https://club.excelhome.net/threa ... tml?_dsign=29c07576

gwjkkkkk

qgl2008 发表于 2023-6-17 14:18
感谢大哥。用正则可以实现，我在附件里面嵌套一层循环
但是我3个sheet页，想点一下按钮3个sheet全部替换 ...

Option Explicit
Sub TEST1()
    Dim rngCel As Range, wks As Worksheet
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "([\d\s]+)([\u4e00-\u9fa5]+)"
        For Each wks In Worksheets
            For Each rngCel In wks.UsedRange
                rngCel.Value = .Replace(rngCel.Value, "$2")
            Next
        Next
    End With
    Beep
End Sub

gwjkkkkk

qgl2008 发表于 2023-6-17 14:18
感谢大哥。用正则可以实现，我在附件里面嵌套一层循环
但是我3个sheet页，想点一下按钮3个sheet全部替换 ...

请参考。。。

ykcbf1100

参与一下。