EXCEL正则表达式

边青安1539 如何取该列中的汉字

2025-05-14 13:27:22

推荐回答（4个）

回答1：

Public Function 汉字(arr As String)
Dim reg As Object
Set reg = CreateObject("vbscript.regexp")
With reg
.Pattern = "[^(\u4e00-\u9fa5)]"
.Global = True
汉字 = .Replace(arr, "")
End With
End Function
这个会提取出一个字符串中的所有汉字，例如”我1weq*2we3w爱34es你“,提取出来就为”我爱你“。

回答2：

如果你文本中的格式是固定汉字在前。数字在后可以用下面这条
=SUBSTITUTE(A1,LOOKUP(9E+307,--MID(A1,MIN(FIND({0;1;2;3;4;5;6;7;8;9},A1&1234567890)),ROW(INDIRECT("1:"&LEN(A1))))),"")

A1格是要修改的内容

回答3：

假设数据在A1，在B1输入公式：
=LEFT(A1,LENB(A1)-LEN(A1))

回答4：

=--RIGHT(C1,LEN(C1)*2-LENB(C1))