分离摘要中的合同号

梦馨天地 · 发表于 2019-5-23 17:56

大家好！是否有函数可以直接分离出A列的合同号，就是B列中显示的数据？谢谢！

语虚何以言知 · 发表于 2019-5-23 18:17

我根据你列举的数据提炼了规则：合同号是字母与数字组成，合同号长度10位以上，多个合同号之间用、间隔。
用正则做了个自定义函数nnn：
代码：

Function nnn(rng As Range)
On Error Resume Next
Dim regex As Object
Set regex = CreateObject("VBScript.RegExp")
With regex
.Global = True
.Pattern = "[A-Za-z0-9、]{10,}"
Set mc = .Execute(rng)
End With
nnn = mc(0)
End Function

复制代码

效果：

正则自定义函数.rar (13.22 KB, 下载次数: 16)

aleaflin · 发表于 2019-5-23 18:42

本帖最后由 aleaflin 于 2019-5-23 18:55 编辑

抄楼上一部分，如果规则是“右边数第一个非字母数字和顿号的字符出现处，的右侧就是合同号”，那么自定义函数可以是：
Function nnn(rng As Range)
Dim str
str = rng.Value
Do While Right(str, 1) Like "[A-Za-z0-9、]"
str = Left(str, Len(str) - 1)
Loop
nnn = Replace(rng.Value, str, "")
End Function

1016373263 · 发表于 2019-5-23 19:02

=RIGHT(A2,LEN(A2)-FIND("收入",A2)-1)

xfbanxian · 发表于 2019-5-23 21:32

如果都是有规律的“收入”之后加合同号的，把“*收入”替换为空也可。

梦馨天地 · 发表于 2019-5-24 10:02

语虚何以言知发表于 2019-5-23 18:17
我根据你列举的数据提炼了规则：合同号是字母与数字组成，合同号长度10位以上，多个合同号之间用、间隔。
...

谢谢！现找到用PQ可以快速分离出合同号。

乡巴佬123 · 发表于 2019-5-24 11:09

在B列输入公式：=RIGHT(A5,LEN(A5)-FIND("入",A5))

gykg-excel · 发表于 2019-5-24 13:50

=MID(A2,FIND("收入",A2)+2,99)

sishuiren · 发表于 2019-5-24 15:05

=MID(A2,MATCH(1,0/(MID(A2,ROW($1:$99),1)>="吖"),1)+1,99)
数组公式

BWLHSCB · 发表于 2019-5-24 15:59

在C2单元格输入公式“=RIGHT(A2,LEN(B2))=B2”

		自动登录	找回密码
密码			免费注册

[已解决] 分离摘要中的合同号

最新热点 /1