VBA删除中文和符号，只保留英文？(Excel如何剔除中文，只留英文？)
- Excel如何剔除中文，只留英文？
- 怎么办：EXCEL 只剔除中文文字 留下英文和数字 我是新来的 没有分啊 谢谢好心人啦
- 怎么样只把EXCEL中的英文字母删除，而其他文字不删除？如果用VBA，什么字符代表英文呀？？
- 大家能否帮我解决一个问题，那就是把excel中除了英文，数字以外的所有汉字跟标点符号删除，用VBA
Excel如何剔除中文，只留英文？
B2输入 =LEFT(A2,2*LEN(A2)-LENB(A2)) 下拉
怎么办：EXCEL 只剔除中文文字 留下英文和数字 我是新来的 没有分啊 谢谢好心人啦
文本筛选--自定义筛选----不包含“ Clonorchis sinensis (s. endemicus) m”，希望可以帮到你哦！
怎么样只把EXCEL中的英文字母删除，而其他文字不删除？如果用VBA，什么字符代表英文呀？？
Sub aa()
Dim irng As Range: set irng = Selection
'Selection表示选中的区域，即：先选中区域，再切换到代码页运行本程序
'可换成其他区域，如：irng = range("A1:D5") ，表示对A1:D5区域做动作
Dim x As Integer
Dim MyStr As String
Dim s As String
Dim t As String
For Each c In irng
s = c.Value
MyStr = ""
If s <> "" Then
For x = 1 To Len(s)
t = Mid(s, x, 1)
If t Like "[a-zA-Z]" = False Then MyStr = MyStr & t
Next x
c.Value = MyStr
End If
Next
End Sub
大家能否帮我解决一个问题，那就是把excel中除了英文，数字以外的所有汉字跟标点符号删除，用VBA
Sub 清理数据()
Dim rng As Range, i As String, tmp As String
Dim reg As Object
Set reg = CreateObject("vbscript.regexp")
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "[^0-9a-zA-Z]+"
For Each rng In Sheets(1).UsedRange
If rng <> "" Then
i = rng.Value
tmp = .Replace(i, "")
rng = tmp
End If
Next
End With
End Sub
如果想保留英文句号，需修改正则表达式。