如何提取excel一列单元格中的文字

Question

如题所述

Answer 1

提取excel一列单元格中的文字：
Alt+F11——菜单栏——插入——模块——粘贴以下代码——关闭VBA：

Function TQ(rng As Range, Optional i As String = "汉字")
With CreateObject("vbscript.regexp")
Select Case i
Case "汉字": .Pattern = "[\u4e00-\u9fa5]"
End Select
.Global = True
Set matches = .Execute(rng.Value)
For Each Match In matches
a = a & s & Match
Next
TQ = IIf(Len(a) > 0, a, "")
End With
End Function

在要返回数据的单元格输入：
=TQ(A1,"汉字")

——回车。