Question

把excel中表格里的非汉字删除

比如：轴承730，修理7.5kw电机，等等物料名称列数字和字母位置不固定，VB或公式都可以

Answer 1

用VBA 

Sub RmvNotChinese()
    Dim oRegExp As Object
    Dim rngCell As Range
    For Each rngCell In Range("A1:C20")    '这里设置需要处理的区域
        Set oRegExp = CreateObject("vbscript.regexp")
        With oRegExp
            .Global = True
            .Pattern = "[^\u4E00-\u9FA5]"
            If .Test(rngCell.Text) Then rngCell.Value = .Replace(rngCell.Text, "")
        End With
    Next
    Set oRegExp = Nothing
End Sub

 也可以简单修改变成函数形式

追问

为什么复制过去数字字母还是存在啊

追答

如果清除后再复制过去的东西不会自动处理。

Answer 2

2015-07-18 14:50 Stcxj | 十八级 最快回答
…………………………………………
既然不要，留着也没用，那就删除掉吧。