正则区分红色与深红色

xili12345

各位老师好：
正则提取词。   我不知道这适不适合用正则解决，目前我只能用普vba代码判断。 求指点，感谢

F列是要提取的词，词是相近的，例如：蓝色 和 深蓝色。  字数和词完全一致时，则提取出来。例如AB列是示例列。
这个用正则怎么弄？ 例如第6行，正确结果是 红色  不是 深红色。
非常感谢！！！！！

limonet

用公式吧，用什么牛刀。

=INDEX(F$2:F$5,MAX(IF(ISNUMBER(FIND($F$2:$F$5,A2)),ROW($1:$4),"")))

limonet

公式在审核。

xili12345

limonet 发表于 2023-5-17 18:38
公式在审核。

感谢 limonet 老师

xili12345

limonet 发表于 2023-5-17 18:38
公式在审核。

感谢。解决了

liulang0808

前几天刚处理一个案例，楼主可以先把F列的词按照字符多少从多到少排序
在使用代码逐个核对，如果包含就不再往下遍历了
或使用正则匹配也是可以的

liulang0808

Sub 按钮1_Click()
    r = Cells(Rows.Count, 6).End(3).Row
    arr = [a1].CurrentRegion
    brr = WorksheetFunction.Transpose(Range("f2:f" & r))
    For j = 1 To UBound(brr)
        For i = j + 1 To UBound(brr)
            If Len(brr(j)) < Len(brr(i)) Then
                tm = brr(j)
                brr(j) = brr(i)
                brr(i) = tm
            End If
        Next i
    Next j
    With CreateObject("vbscript.regexp")
        .Pattern = Join(brr, "|")
        For j = 2 To UBound(arr)
            If .test(arr(j, 1)) Then arr(j, 1) = .Execute(arr(j, 1))(0)
        Next j
        [k1].Resize(UBound(arr)) = arr
    End With
End Sub

liulang0808

正则01.zip (19.38 KB, 下载次数: 9)

2023-5-17 21:46 上传

点击文件名下载附件

xili12345

liulang0808 发表于 2023-5-17 21:39
前几天刚处理一个案例，楼主可以先把F列的词按照字符多少从多到少排序
在使用代码逐个核对，如果包含就不 ...

感谢 liulang0808 老师。     无论是函数，还是vba F列的排序 都是至关重的

sdytsxd991122

来参与