江建民 发表于 2022-1-29 18:17:33

附件里没看到有红色标注的异常啊？

久了不联系疏远 发表于 2022-2-2 22:05:45

没一点规律

用户老丫丫 发表于 2022-2-12 05:00:53


正则自定义函数Private Function bh(TXT$, pt$)

With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = pt
If .test(TXT) Then
    bh = .Execute(TXT)(0)
Else
    bh = ""
End If
End With
End Function

=bh(A2,"^\d**\d*(?:\d)")

风静月长明 发表于 2022-2-19 06:56:22

规律就是 原式若是字母+数字+字母+其他，只保留字母+数字（后面的不要）
      原式若是数字+字母+数字+其他，只保留数字+字母+数字（后面的不要）

家在平阳 发表于 2022-2-21 05:51:58

=IF(OR(MIN(FIND({"-","/"},A2&"-/"))>FIND(ROW($1:$10)-1,A2&1/17)),LEFT(A2,IF(A2<"a",MATCH(1,-MID(A2,ROW($1:$33),1)),MODE(ROW($1:$33)-ISERR(-MID(A2,ROW($1:$33),1)),{1,1}%))),"")

数组公式 下拉
除了 RVV5*0.5 返回 RVV5 其他都正常

黄旭彬 发表于 2022-2-28 12:28:24

=IF(OR(MIN(FIND({"-","/"},A2&"-/"))>FIND(ROW($1:$10)-1,A2&1/17)),LEFT(A2,IF(A2<"a",MATCH(1,-MID(A2,ROW($1:$33),1)),MODE(ROW($1:$33)-ISERR(-MID(A2,ROW($1:$33),1)),{1,1}%))),"")

数组公式 下拉
除了 RVV5*0.5 返回 RVV5 其他都正常

西郭先生 发表于 2022-3-10 21:38:07

放到模块里面

江湖狩猎 发表于 2022-3-16 09:54:49

终于搞定了，希望评个分！更新了

非一日之寒 发表于 2022-3-21 22:50:13

带星号的只有这一种情况，多套个IF就满足了
页: 1 [2]
查看完整版本: 产品型号去杂