求助VBA代码分离数值汉字与字符

小李菜鸟

  a2/123345-01-123客户到
  b2/123434  舍弗勒
  LUK至万达广场C2/110003
   
文件如上，想要的结果是
a2/123345-01-123
b2/123434
C2/110003


谢谢各位

xd3210

sub test_reg()
dim regx as object
dim s as string
set regx=createobject("vbscript.regexp")
regx.global=true
regx.pattern="[\u4e00-\u9fa5]*"
s="a2/123345-01-123客户到"
s=regx.replace(s,"")
msgbox s
set regx=nothing
end sub

小李菜鸟

谢谢，a2/123345-01-123客户到
  b2/123434  舍弗勒
  LUK至万达广场C2/110003
   
文件在A1,A2,A3的单元格中如上，想要的结果是 分离到B1
B2 B3中
a2/123345-01-123
b2/123434
C2/110003

microyip

小李菜鸟 发表于 2017-4-29 10:38
谢谢，a2/123345-01-123客户到
  b2/123434  舍弗勒
  LUK至万达广场C2/110003

第一，别人给你做个模板出来，你应该学习如何变通组织，不一定非要最终结果
第二，你自己表达的意思存在误区，就拿A3来说，分离中文后，要前面一段还是后面一段，是否把描述再表达清楚点？

mzbao

小李菜鸟 发表于 2017-4-29 10:38
谢谢，a2/123345-01-123客户到
  b2/123434  舍弗勒
  LUK至万达广场C2/110003

1. Sub getCode()
   
2.     Dim RegX As Object, objMatchs As Object
   
3.     Dim s As String
   
4.    
   
5.     Set RegX = CreateObject("vbscript.regexp")
   
6.     RegX.Pattern = "\w[^\u4e00-\u9fa5]*\d"
   
7.    
   
8.     For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
   
9.         Set objMatchs = RegX.Execute(Cells(i, 1).Value)
   
10.         Cells(i, 2) = objMatchs(0)
    
11.     Next
    
12.    
    
13.     Set RegX = Nothing
    
14. End Sub

复制代码

小李菜鸟

    Cells(i, 2) = objMatchs(0)   这条语句报错。

我的文件大约在100多行，其中有一行全部是汉字。在运行程序后，就停留在合部是汉字的地方

a2/123345-01-123客户到
  b2/123434  舍弗勒
  LUK至万达广场C2/110003
家到公司
D2/123456

小李菜鸟

microyip 发表于 2017-4-29 10:45
第一，别人给你做个模板出来，你应该学习如何变通组织，不一定非要最终结果
第二，你自己表达的意思存在 ...

你说的很对，是我的错误。我以后改正。

未忘初心

看看是不是这样 O(∩_∩)O

jiminyanyan

正则要考虑各种情况，所以要把原始文件传上来，不要随意简化