excel VBA应用

成功一招解决提取或去除的汉字、数字、字母
在sheet里
Sub Clear_1删除中文()
For Ro = 1 To 99999
If Cells(Ro, 10) = “” Then Exit For
Str1 = Cells(Ro, 10)
C_删除中文 = “”
If Not Str1 = “” Then
For i = 1 To Len(Str1)
If Not Mid(Str1, i, 1) Like “[一-龥]” Then C_删除中文 = C_删除中文 & Mid(Str1, i, 1)
Next i
End If
Cells(Ro, 11) = C_删除中文
Next Ro
End Sub