对比后并修改

清茶小孩

规范名称.zip (587.64 KB, 下载次数: 8)

2023-5-25 12:27 上传

点击文件名下载附件

粘贴处表   商品名称   与 规范名称表对比    如粘贴处表   商品名称  包含有规范名称表 里的口味词  则将口味词移到带有:  g\克 \千克\ML   后面      并将修改过的改成红色


谢谢老师！




Sub text2()
    Dim a(), b(), bx$, i&
    Sheet1.Range("b2", Sheet1.[b36656].End(3)).Font.ColorIndex = 3
    a = Sheet1.Range("b1", Sheet1.[b36656].End(3))
    b = Sheet2.Range("a1", Sheet2.[a36656].End(3))
    For i = 2 To UBound(b)
        bx = bx & "|" & b(i, 1)
    Next
    With CreateObject("vbscript.regexp")
        .Pattern = "(" & Mid(bx, 2) & ")"
        For i = 2 To UBound(a)
            If .test(a(i, 1)) Then
                a(i, 1) = .Replace(a(i, 1), "") & .Execute(a(i, 1))(0)
            Else
                Sheet1.Cells(i, 2).Font.ColorIndex = 1
            End If
        Next
    End With
    Sheet1.Range("b1", Sheet1.[b36656].End(3)) = a
End Sub

高个子

1. =IFNA(SUBSTITUTE(B2,LOOKUP(9^9,FIND(规范名称!$A$2:$A$219,粘贴处!B2),规范名称!$A$2:$A$219),)&LOOKUP(9^9,FIND(规范名称!$A$2:$A$219,粘贴处!B2),规范名称!$A$2:$A$219),B2)

复制代码

不知道为什么

附件 参考。。。。。。

清茶小孩

不知道为什么 发表于 2023-5-25 12:39
附件 参考。。。。。。

您好，老师
如：
品品香泡凤爪清爽原味108g
现在取的值：品品香泡凤爪清爽108g原味

能不能取：品品香泡凤爪108g清爽原味

就是以最大最多字符做为优先

清爽原味  大于 原味 所以优先 清爽原味

suntao2000

~~~~~~~~~~~~~~~

不知道为什么

清茶小孩 发表于 2023-5-25 13:29
您好，老师
如：
品品香泡凤爪清爽原味108g

附件 测试。。