一、如何提取excel一列单元格中的文字
提取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,"汉字")
——回车。
二、excel提取整列
可以这样操作：
1、假设源数据在sheet1，拷贝数据区域，到sheet2中进行选择性粘贴/转置，使得行列数据互换。
2、在sheet2中第一行上插入2行，A1内容为“标题”，A2内容为公式=COUNT(B2:HZ2)，即对该行的数据计数。复制该公式到A列所有行。如下图：
3、对A列进行数据筛选，并对A1单元格设置数字筛选-大于或等于6，结果如图：
4、拷贝筛选出来的行，到sheet3进行选择性粘贴--转置，如图：
5、删除sheet3的第一行即得到最终结果。
