根据名单辅助列，提取不规则列的信息内容

一只罗小黑 · 发表于 2024-8-8 23:20

大神们，求助下怎么根据名单的辅助列，提取出交易附言中的名字信息的，如果遇到不在辅助列内容的就显示空白，谢谢！

沈默00 · 发表于 2024-8-9 07:03

这正则写的出来吗，

无关岁月 · 发表于 2024-8-9 08:32

=IFNA(SUBSTITUTE(REGEXEXTRACT(A2,"("&TEXTJOIN("|",,F$2:F$13)&")",1),"餐","临时"),"")

复制代码

mjm04 · 发表于 2024-8-9 08:42

沈默00 发表于 2024-8-9 07:03
这正则写的出来吗，

正则写得出来的，套两次就行了！

=IFERROR(REGEXP(TEXTJOIN("#",,IFNA(REGEXP(A2,$F$2:$F$13),"")),"[^#]+"),"")

===============================================================

F6单元格与F10单元格的何七重复啦！！！

沈默00 · 发表于 2024-8-9 08:45

mjm04 发表于 2024-8-9 08:42
正则写得出来的，套两次就行了！

=IFERROR(REGEXP(TEXTJOIN("#",,IFNA(REGEXP(A2,$F$2:$F$13),""))," ...

我对这正则一直不得要领，，，太灵活了，学习....

一只罗小黑 · 发表于 2024-8-9 10:30

无关岁月发表于 2024-8-9 08:32

哦我那厉害的大神，我尝试安装加载了Excel网络函数库，但是为啥还是显示错误

无关岁月 · 发表于 2024-8-9 10:32

一只罗小黑发表于 2024-8-9 10:30
哦我那厉害的大神，我尝试安装加载了Excel网络函数库，但是为啥还是显示错误

wps的话需要365版本，然后把REGEXEXTRACT改成REGEXP

一只罗小黑 · 发表于 2024-8-9 10:32

mjm04 发表于 2024-8-9 08:42
正则写得出来的，套两次就行了！

=IFERROR(REGEXP(TEXTJOIN("#",,IFNA(REGEXP(A2,$F$2:$F$13),""))," ...

哈哈哈你真棒！，不过显示空白是我哪步没整正确嘛

卿远 · 发表于 2024-8-9 14:42

用VBA试了一下

Sub 提取关键字()
Dim i As Integer, j As Integer
For i = 2 To Cells(1, 1).End(xlDown).Row
   For j = 2 To Cells(1, 6).End(xlDown).Row
      t = Application.Find(Cells(j, 6), Cells(i, 1))
      s = Application.IfError(Application.Find(Cells(j, 6), Cells(i, 1)), 0)
      If s > 0 Then
                  If Cells(i, 2) = "" Then
                        Cells(i, 2) = Cells(j, 6)
                  Else
                        Cells(i, Cells(i, 2).Column + 1) = Cells(j, 6)
                        If Cells(i, Cells(i, 2).Column + 1) = Cells(i, 2) Then Cells(i, Cells(i, 2).Column + 1).Clear
                  End If
                  If Cells(i, 2) = "餐" Then Cells(i, 2) = "临时"
      End If
   Next j

Next i

End Sub

卿远 · 发表于 2024-8-9 14:44

用VBA试了一下

Sub 提取关键字()
Dim i As Integer, j As Integer
For i = 2 To Cells(1, 1).End(xlDown).Row
   For j = 2 To Cells(1, 6).End(xlDown).Row
      t = Application.Find(Cells(j, 6), Cells(i, 1))
      s = Application.IfError(Application.Find(Cells(j, 6), Cells(i, 1)), 0)
      If s > 0 Then
                  If Cells(i, 2) = "" Then
                        Cells(i, 2) = Cells(j, 6)
                  Else
                        Cells(i, Cells(i, 2).Column + 1) = Cells(j, 6)
                        If Cells(i, Cells(i, 2).Column + 1) = Cells(i, 2) Then Cells(i, Cells(i, 2).Column + 1).Clear
                  End If
                  If Cells(i, 2) = "餐" Then Cells(i, 2) = "临时"
      End If
   Next j

Next i

End Sub

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

[求助] 根据名单辅助列，提取不规则列的信息内容

评分