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