[已解决]一个单元格即有数字又有中文，如何去除数字只保留中文。

shazilo

一个单元格即有数字又有中文，如何去除数字只保留中文。如A1＝中123国，去掉123  ?

豆丁

按题意只保留中文：

1. Sub aaaa()
   
2. Dim RegEx
   
3.     With CreateObject("VBSCRIPT.REGEXP")
   
4.         .Global = True
   
5.         .Pattern = "[^\u4e00-\u9fa5]"
   
6.         Range("b1") = .Replace(Range("a1"), "")
   
7.     End With
   
8. End Sub

复制代码

cjainwei

顶多用十次查找替换就可以了（从0~9）进行替换

xpw6061

回复 shazilo 的帖子

假设A1单元格是要处理的字符串, B1是处理后的字符串,代码如下:

Dim RegEx
    a = Range("a1")
    Set RegEx = CreateObject("VBSCRIPT.REGEXP")
    RegEx.Global = True
   
   RegEx.Pattern = "\d"
    b = RegEx.Replace(a, "*")
    bb = Replace(b, "*", "")
   
   
    Set RegEx = Nothing
    Range("b1") = bb

豆丁

按题意只保留中文：

1. Sub aaaa()
   
2. Dim RegEx
   
3.     With CreateObject("VBSCRIPT.REGEXP")
   
4.         .Global = True
   
5.         .Pattern = "[^\u4e00-\u9fa5]"
   
6.         Range("b1") = .Replace(Range("a1"), "")
   
7.     End With
   
8. End Sub

复制代码

studyexcel

回复 shazilo 的帖子
2楼说的10次查找替换
Sub aa()
    Dim str$, arr
    arr = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)
    str = [a1]
    For i = o To UBound(arr)
        str = Replace(str, arr(i), "")
    Next
    [b1] = str
End Sub

哈啤

豆丁 发表于 2011-8-29 13:31
按题意只保留中文：

大神！问下如果想实现把A列的文本全部去除数字等字符输出到B列，要怎么添加循环语句啊？