最乱的数字提取！高手相助！

wpxxsyzx

Private Sub CommandButton1_Click()
Dim regex As New RegExp
regex.Global = True
regex.Pattern = "[a-zA-Z\u4e00-\u9fa5]*"
For i = 2 To 8
    Range("C" & i) = regex.Replace(Range("a" & i), "")
Next
End Sub

zuiaidh2004

zzmxy 发表于 2011-7-15 23:41
最简单还是把数据拷到Word里，按Ctrl+H，先把“通配符”勾选上，查找内容为： [!0-9]，替换内容为空，“全部 ...

O(∩_∩)O 这个办法真是妙，你太聪明啦

liuyedao1

zzmxy 发表于 2011-7-15 23:41
最简单还是把数据拷到Word里，按Ctrl+H，先把“通配符”勾选上，查找内容为： [!0-9]，替换内容为空，“全部 ...

跟你有同感，怎么方便怎么来，学着做了一下，不知这个感叹号是什么意思？单元格中有数字、英文字母、及中文，我在word中输入的是[0-9,a-z]，勾选通配符及突出显示后，复制，粘贴时为何呈竖排了？
摸索了一下，终于明白了。

zyy雨

好多种方法啊，可是怎么理解这些公式呢