分离

ddz79101

老师！想将抬头与税号合在一起的单元格，分离为2个单元格，应该如何使用正则，谢谢老师指点。

loirol

H3=SUBSTITUTE(G3,I3,"")

I3=REGEXEXTRACT(G3,"[A-Za-z0-9]+")

sxbjzjf110

       \w+

ykcbf1100

用正则分离吧

ykcbf1100

参与一下。。。

xlj310

我感觉简单问题一般都直接可以高阶函数直接完成了。这个是用的正则

Qs18

1. Sub qs()
   
2.     Dim inputStr As String, arr
   
3.     Set regex = CreateObject("VBScript.RegExp")
   
4. With Sheet1
   
5.     arr = Sheet1.UsedRange.Value
   
6.       For i = 3 To UBound(arr)
   
7.         ' 输入字符串
   
8.         inputStr = arr(i, 7)
   
9.         ' 创建正则表达式对象
   
10.         Set matches = regex.Execute(inputStr)
    
11.    
    
12.         ' 定义正则表达式模式：匹配公司名后面的数字或数字+字母和符号
    
13.         ' 假设公司名不包含数字，且数字部分从第一个数字开始到字符串结束
    
14.         regex.Pattern = "([^\d]*)([\d\w\s\S]*)"
    
15.         regex.Global = True
    
16.    
    
17.         ' 执行匹配
    
18.         Set matches = regex.Execute(inputStr)
    
19.         ' 提取匹配结果
    
20.         If matches.Count > 0 Then
    
21.             Set match = matches(0)
    
22.             arr(i, 8) = match.SubMatches(0)
    
23.             arr(i, 9) = "'" & match.SubMatches(1)
    
24.         End If
    
25.     Next i
    
26. .Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
    
27. End With
    
28. End Sub

复制代码

Qs18

试试...........

Qs18

试试..........

usedrange

.Pattern = "([一-龢()]+)|(\w+)"