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

一只罗小黑

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

沈默00

这正则写的出来吗，

无关岁月

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

复制代码

mjm04

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

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

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

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

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

沈默00

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

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

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

一只罗小黑

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

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

无关岁月

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

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

一只罗小黑

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

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

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

卿远

用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

卿远

用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