帮忙看下这个vb代码

13406190946

我想删除excel中的字母，在网上找了个代码，到红色处出现错误，请大神看下怎么改，工作簿名称为：xiao，其中工作表名称为：yi
非常感谢!!!


Sub remove_cn_char()
    Dim Rng As Range
    Dim Reg
    Set Reg = CreateObject("vbscript.regexp")    '建立正则表达式
    Reg.Pattern = "[a-zA-Z]"        '去英文样式
    Reg.Global = True    '设置全局可用
    With Sheets("test")    ‘设置要替换的sheet名称
        For Each Rng In sh.UsedRange
            On Error Resume Next    '防止一些错误值引起的报错
            Rng = Reg.Replace(Rng, "")
        Next
    End With

taller

Sub remove_cn_char()
    Dim Rng As Range
    Dim Reg
    Set Reg = CreateObject("vbscript.regexp")    '建立正则表达式
    Reg.Pattern = "[a-zA-Z]"        '去英文样式
    Reg.Global = True    '设置全局可用
    With Sheets("yi")    ‘设置要替换的sheet名称
        For Each Rng In .UsedRange
            On Error Resume Next    '防止一些错误值引起的报错
            Rng = Reg.Replace(Rng, "")
        Next
    End With

鄂龙蒙

要看你将代码放在那了     放在本薄内：With Sheets("yi")
For Each Rng In .UsedRange

jinlei2006

bug不能重现，怎么看，我喜欢看附件！

dailj

查看VB界面的左边，看你用的是第几个工作表，如果是第1个，那么With Sheet1，以此类推

dailj

要么Sheets("yi")