1.提取单元格里的英文和数字(不含中文和标点符号) 2.或者说是删除单元格里面的所有标点符号.

‘ 自定义函数,调用格式：B2 = GetLNData(A1)
Function GetLNData(cl As Range) As String
vv = cl.Value
wd = Len(vv)
rr = ""
For k = 1 To wd
c = Asc(Mid(vv,k,1))
If (c > 47 And c < 58) Or (c > 64 And c < 91) Or (c > 96 And c < 123) Then
rr = rr + Chr(c)
End If
Next
GetLNData = rr
End Function