俄汉单词分离

cxgsuccess

请大侠们帮忙将俄汉单词进行分离。谢谢

ione_fox

Sub test()
Dim Ar, I&
    Ar = Sheet1.UsedRange.Value
    With CreateObject("VBScript.RegExp")
        .Pattern = "[\u4e00-\u9fa5]+.*"
        For I = 2 To UBound(Ar)
        Ar(I, 3) = .Execute(Ar(I, 1))(0)
        Ar(I, 2) = Split(Ar(I, 1), Ar(I, 3))(0)
        Next I
    End With
    Sheet1.UsedRange = Ar
End Sub

ione_fox

附件请测试

duquancai

1. # -*- coding: utf-8 -*-
   
2. # version: Python 3.7.0
   
3. import re
   
4. 
   
5. sous_str =[
   
6.     "А автомобильный бензин 汽车汽油","азимут 方位，方位角","акселерометр 加速度表","ампер 安（培）（电流单位）","анод 阳极，赚，板极","ангстрем 埃（波长单位，1埃=10-8厘米）","антенна 天线","антрацит 无烟煤","армия 军队，军，陆军","артезианский насос 深井水泵","асфальт 地沥青，柏油","AA Академия архитектуры 建筑科学院","AABC аппарат атомно-водородной сварки 原子氢焊接机，氢原子焊接机","AAE авиационный астрономический ежегодник 航空天文年历","AAH архив академии наук 科学院档案馆","AAP Ассоциация американских железных дорог （ААR, Association of American Railroads） 美国铁路协会","АБ авиационная база 航空基地","автоблокировка 自动闭塞"
   
7. ]
   
8. 
   
9. for i in sous_str:
   
10.     r = re.findall(r'\A([^一-﨩]+)([一-﨩].*)\Z', i)
    
11.     print(r)

复制代码

ww87725244

1. Sub aa()
   
2. Dim ar, i&, d As Object, k&, ar1()
   
3. Set d = CreateObject("vbscript.regexp")
   
4. With d
   
5.     .Global = True
   
6.     .Pattern = "[一-龟]+.*"
   
7.     ar = Sheet1.Range(Sheet1.Cells(2, 1), Sheet1.Cells(Sheet1.Rows.Count, 1).End(3))
   
8.     ReDim Preserve ar1(1 To UBound(ar), 1 To 2)
   
9.     For i = 1 To UBound(ar)
   
10.         k = k + 1
    
11.         ar1(k, 2) = .Execute(ar(i, 1))(0)
    
12.         ar1(k, 1) = .Replace(ar(i, 1), "")
    
13.     Next
    
14. End With
    
15. Sheet1.[b2].Resize(UBound(ar1), 2) = ar1
    
16. Sheet1.[b2].Resize(UBound(ar1), 2).WrapText = True
    
17. End Sub

复制代码

cxgsuccess

感谢各位高手的大力支持。万分感谢！

cjc209

快速填充 既可以

cxgsuccess

ione_fox 发表于 2019-1-18 21:15
附件请测试

为啥词条多了就不行呢？我用的是2010版

cxgsuccess

ww87725244 发表于 2019-1-18 21:38

2010版运行不了？

ww87725244

cxgsuccess 发表于 2019-1-25 13:51
2010版运行不了？

不会，我的也是2010