急!excel函数问题,如何提取文字

发布网友发布时间：2022-04-25 22:51

共2个回答

热心网友时间：2022-06-18 09:49

EXCEL中,按ALT+F11, 打开VB编辑器
点菜单中的"插入"——"模块"
然后把下面的代码贴进去..

如果数据在A列, 请在B列输入公式 =fch(a1)
然后向下拉,直到全部B列都有和A列对应的公式,
然后对B列进行排序就OK了..

模块代码如下:

Function fch(text) As String
Dim i%, j%, m%
i = Len(text)
fch = ""
For j = 1 To i
m = Asc(Mid(text, j, 1))
If m <> -24128 And m <> -23636 And m <> -22846 Then
If m < 0 Or m > 255 Then
fch = Mid(text, j, 1)
Exit Function
End If
End If
Next
End Function

热心网友时间：2022-06-18 09:49

在vb里提取中文的代码是这样的！~ 在excel里应该也是好用的！~

Dim h$, aa$, bb$, i%
Private Sub Form_Load()
aa = "dxgfisdhfjshd提取sadsadasdx提取sadasdsa命sadada"
bb = ""
For i = 1 To Len(aa)
h = Hex(Asc(Mid(aa, i, 1)))
If Len(h) > 2 Then
bb = bb & Mid(aa, i, 1)
End If
Next i
MsgBox bb
End Sub