[已解决]Excel中英文，汉子混杂的数据中怎么分离英文？

qopani

Excel中英文，汉子混杂的数据中怎么分离英文？

最佳答案

月排行榜 / 总排行榜

EXCEL-YQ

2011-10-9 18:31

方法1：

1. Sub Test()
   
2. Dim Str As String
   
3. Str = InputBox("请输入一个字符:")
   
4. If Len(Str) <> 0 Then
   
5. If Str Like "[一-龥]" Then MsgBox "汉字"
   
6. End If
   
7. End Sub

复制代码

方法2：

1. Sub Test()
   
2. Dim Str1, Str2, i, m
   
3. Str1 = InputBox("请输入一个字符:")
   
4. Do While Len(Str1) > i
   
5.     i = i + 1
   
6.     Str2 = Mid(Str1, i, 1)
   
7.     If (Asc(Str2) < 0 And Asc(Str2) > -22000) Or Asc(Str2) < -24300 Then
   
8.         GoTo 100
   
9.     Else
   
10.         Str1 = Replace(Str1, Str2, "")
    
11.         i = i - 1
    
12.     End If
    
13. 100
    
14. Loop
    
15. MsgBox "是汉字的是：" & Str1
    
16. End Sub

复制代码

方法3：

1. Sub Test1()
   
2. Dim Str1, Str2, i, m
   
3. Str1 = InputBox("请输入一个字符:")
   
4. Do While Len(Str1) > i
   
5.     i = i + 1
   
6.     Str2 = Mid(Str1, i, 1)
   
7.     If Str2 = "，" Or Str2 = "。" Or Str2 = "？" Or Str2 = "！" Or (Asc(Str2) < 0 And Asc(Str2) > -22000) Or Asc(Str2) < -24300 Then
   
8.         GoTo 100
   
9.     Else
   
10.         Str1 = Replace(Str1, Str2, "")
    
11.         i = i - 1
    
12.     End If
    
13. 100
    
14. Loop
    
15. MsgBox "是汉字的是：" & Str1
    
16. End Sub

复制代码

帖子：
http://www.excelpx.com/thread-188709-1-1.html

跳转到最佳答案楼层

5blessyou

烦请楼主上传附件，模拟一下结果

EXCEL-YQ

方法1：

1. Sub Test()
   
2. Dim Str As String
   
3. Str = InputBox("请输入一个字符:")
   
4. If Len(Str) <> 0 Then
   
5. If Str Like "[一-龥]" Then MsgBox "汉字"
   
6. End If
   
7. End Sub

复制代码

方法2：

1. Sub Test()
   
2. Dim Str1, Str2, i, m
   
3. Str1 = InputBox("请输入一个字符:")
   
4. Do While Len(Str1) > i
   
5.     i = i + 1
   
6.     Str2 = Mid(Str1, i, 1)
   
7.     If (Asc(Str2) < 0 And Asc(Str2) > -22000) Or Asc(Str2) < -24300 Then
   
8.         GoTo 100
   
9.     Else
   
10.         Str1 = Replace(Str1, Str2, "")
    
11.         i = i - 1
    
12.     End If
    
13. 100
    
14. Loop
    
15. MsgBox "是汉字的是：" & Str1
    
16. End Sub

复制代码

方法3：

1. Sub Test1()
   
2. Dim Str1, Str2, i, m
   
3. Str1 = InputBox("请输入一个字符:")
   
4. Do While Len(Str1) > i
   
5.     i = i + 1
   
6.     Str2 = Mid(Str1, i, 1)
   
7.     If Str2 = "，" Or Str2 = "。" Or Str2 = "？" Or Str2 = "！" Or (Asc(Str2) < 0 And Asc(Str2) > -22000) Or Asc(Str2) < -24300 Then
   
8.         GoTo 100
   
9.     Else
   
10.         Str1 = Replace(Str1, Str2, "")
    
11.         i = i - 1
    
12.     End If
    
13. 100
    
14. Loop
    
15. MsgBox "是汉字的是：" & Str1
    
16. End Sub

复制代码

帖子：
http://www.excelpx.com/thread-188709-1-1.html

w2001pf

学习了哟。

wufengnokia

暂时还看不懂