如何用VBA分离如下中英文

vfd

原帖由 unsamesky 于 2009-7-20 22:09 发表
Sub Test()
  '本方法不支持汉字和字母的混合分离！只支持汉字段和字母段的分离！尚未详细测试！
  Dim capStr As String
  capStr = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
  
  Dim i As L ...

  导入我的excel表格，结果不正确哦，请兄台核实，谢谢！

unsamesky

经过测试，似乎并未发现问题啊！

详细见附件！

vfd

原帖由 unsamesky 于 2009-7-22 00:05 发表
经过测试，似乎并未发现问题啊！
552653
详细见附件！

你的数据没问题，但我要分离的东西确实出错了，请看图：

alzeng

原帖由 vfd 于 2009-7-22 08:01 发表


你的数据没问题，但我要分离的东西确实出错了，请看图：

你把你的表发上来便于大家调试代码，因为数据不同处理的方法自然不同。

unsamesky

我明白了，中文标点符号在作怪，等下帮你改掉！

vfd

原帖由 alzeng 于 2009-7-22 08:15 发表

你把你的表发上来便于大家调试代码，因为数据不同处理的方法自然不同。

有啊，在第一楼啊

alzeng

不以空格做条件：

1. 
   
2. Sub splt()
   
3.     Dim rng As Range, stg$, str$, i%, j%
   
4. 
   
5.     For Each rng In Range("A1", [A65536].End(3))
   
6.         stg = rng
   
7.         i = 1
   
8.         Do Until Mid(stg, i, 1) Like "*[一-龥]*"
   
9.             i = i + 1
   
10.         Loop
    
11.         
    
12.         str = Left(stg, i - 1)
    
13.         j = 0
    
14.         Do While IsNumeric(Left(str, j + 1))
    
15.             j = j + 1
    
16.         Loop
    
17. 
    
18.         rng.Offset(, 1) = Trim(Right(str, Len(str) - j))
    
19.         rng.Offset(, 2) = Trim(Right(stg, Len(stg) - i))
    
20.     Next
    
21. End Sub
    

复制代码

unsamesky

因为你的源文件中用到了全角字符，所以出现了问题。
加入了两行判断语句。
附件经测试，没有问题！
楼主复查！

unsamesky

原帖由 alzeng 于 2009-7-22 15:29 发表
不以空格做条件：
Sub splt()
    Dim rng As Range, stg$, str$, i%, j%

    For Each rng In Range("A1", [A65536].End(3))
        stg = rng
        i = 1
        Do Until Mid(stg, i, 1) Like "*[一 ...

hoho，不错的代码，有空研究一下！
1.不过最后取值的时候，汉字部分掉了第一个字！

2.如果汉字在前就会出问题！

当然，这或许已经超出了楼主的要求了！

alzeng

1.不过最后取值的时候，汉字部分掉了第一个字！

2.如果汉字在前就会出问题！

谢谢提醒,当时未做测试,修正一下:

1. 
   
2. Sub splt()
   
3.     Dim rng As Range, stg$, str$, i%, j%
   
4. 
   
5.     For Each rng In Range("A1", [A65536].End(3))
   
6.         stg = rng
   
7.         i = 1
   
8.         Do Until Mid(stg, i + 1, 1) Like "*[一-龥]*"
   
9.             i = i + 1
   
10.         Loop
    
11.         
    
12.         str = Left(stg, i - 1)
    
13.         j = 0
    
14.         Do While IsNumeric(Left(str, j + 1))
    
15.             j = j + 1
    
16.         Loop
    
17. 
    
18.         rng.Offset(, 1) = Trim(Right(str, Len(str) - j))
    
19.         rng.Offset(, 2) = Trim(Right(stg, Len(stg) - i))
    
20.     Next
    
21. End Sub
    

复制代码

中英文分离.rar (8.24 KB, 下载次数: 18)

2009-7-23 06:25 上传

点击文件名下载附件

关于第二条,如你所说,不在本贴要解决的范畴.有兴趣的话,咱们可以别贴讨论,^_^

[ 本帖最后由 alzeng 于 2009-7-23 06:25 编辑 ]