作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/01 03:25:47
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