如何用VBA分离如下中英文

vfd

补充问下，为什么上面的公式不能分离下面的表？
要报如下图错误？停留在do while那行。
我想要一个通用的脚本，再次麻烦大家。

[ 本帖最后由 vfd 于 2009-7-23 09:34 编辑 ]

dys

路过吧，还是，呵

[ 本帖最后由 dys 于 2009-7-23 09:58 编辑 ]

alzeng

原帖由 vfd 于 2009-7-23 09:31 发表
补充问下，为什么上面的公式不能分离下面的表？
要报如下图错误？停留在do while那行。
我想要一个通用的脚本，再次麻烦大家。

条件已经发生改变，代码就要做相应修改：

1. 
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
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 "*[A-Z]*"
   
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

呵呵，28楼的代码不就可以通用吗？
没测试！？

dys

把全角空格全用“|”替换掉，文字是如下格式。

1． Good to the last drop．||滴滴香浓，意犹未尽。（麦斯威尔咖啡）
10．To me， the past is black and white， but the future is always color． |||对我而言，过去平淡无奇；而未来，却是绚烂缤纷。（轩尼诗酒）
11. Just do it. ||只管去做。（耐克运动鞋）
12. Ask for more. ||渴望无限。（百事流行鞋）
13. The taste is great. ||味道好极了。（雀巢咖啡）
14. Feel the new space. ||感受新境界。（三星电子）
15. Intelligence everywhere. ||智慧演绎，无处不在。（摩托罗拉手机）
16. The choice of a new generation. ||新一代的选择。（百事可乐）
17. We integrate, you communicate. ||我们集大成，您超越自我。（三菱电工）
18. Take TOSHIBA, take the world. ||拥有东芝，拥有世界。（东芝电子）
19. Let’s make things better. | ||让我们做得更好。（飞利浦电子）
2． Obey your thirst． ||服从你的渴望。（雪碧）
20. No business too small, no problem too big. |||没有不做的小生意，没有解决不了的大问题。 （IBM公司）
3． The new digital era． ||数码新时代。（索尼影碟机）
4． We lead． Others copy．||我们领先，他人仿效。（理光复印机）
5． Impossible made possible． ||使不可能变为可能。（佳能打印机）
6． Take time to indulge． ||尽情享受吧！（雀巢冰激凌）
7． The relentless pursuit of perfection． ||不懈追求完美。 （凌志轿车）
8． Poetry in motion， dancing close to me． ||动态的诗，向我舞近。（丰田汽车）
9． Come to where the flavor is． Marlboro Country．|||光临风韵之境——万宝路世界。（万宝路香烟）

是不是可以理解为，instrrev全角空格返回位置的后面值就全是中文，前面就都是英文呢？这样就不用遍历字符串了，大量数据的时候，应该会比较省时间。

alzeng

原帖由 dys 于 2009-7-23 13:48 发表
把全角空格全用“|”替换掉，文字是如下格式。

1． Good to the last drop．||滴滴香浓，意犹未尽。（麦斯威尔咖啡）
10．To me， the past is black and white， but the future is always color． |||对我而言 ...

如果要替换，那还不如直接用这些空格做分离条件，何必多此一举呢？

alzeng

这个应该能通用，满足楼主提供的两个附件：
英汉分离3.rar (10.47 KB, 下载次数: 35)

2009-7-23 14:00 上传

点击文件名下载附件

dys

代码

Sub text()
    Dim i As Long, Position As Integer, myString As String, English As String, Chinese As String
    For i = 1 To [a65536].End(xlUp).Row
        myString = Cells(i, 1).Value
        Position = InStrRev(myString, "　")
        English = Left(myString, Position - 1)
        Chinese = Right(myString, Len(myString) - Position)
        Debug.Print English
    Next
End Sub

dys

原帖由 alzeng 于 2009-7-23 13:52 发表

如果要替换，那还不如直接用这些空格做分离条件，何必多此一举呢？

您没看我最后一边那句话，替换是为了看清字符格式。。。。。。。。。

dys

晕，原来还有第二个附近？！

不过第二个比第一个简单些，用正则找到第一个英文字母，然后用firstindex就可以返回其在字符串中的位置。

代码。。。。。。。一会儿