产品型号去杂

韩之卓韦

各位大神，公司的产品在设计时是用英文字母+数字代表产品型号，比如HY4208,但不同客户会有不同的要求，所以我们下单时会在型号后面标注些字母或数字，代表该产品做了少量的变动，比如HY4208BS1,各种各样都有，我想把这个型号统一成产品最初的设计型号。详见附件表中。跪求大神指教
产品型号去杂.rar (223.08 KB, 下载次数: 13)

2021-12-16 13:31 上传

点击文件名下载附件
产品型号去杂.rar

小野哥啊

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

帅姐

没一点规律

米耗子

正则自定义函数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*[A-Z\ ]*\d*(?:\d)")

麦草草

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

崔国荣

=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 其他都正常

爆笑的哪吒

=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 其他都正常

筱鱼

放到模块里面
产品型号去杂.zip (261 KB, 下载次数: 169)

2021-12-16 13:31 上传

点击文件名下载附件
产品型号去杂.zip

周利飞

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

产品型号去杂.zip (468.22 KB, 下载次数: 48)

2021-12-16 13:31 上传

点击文件名下载附件
产品型号去杂.zip

鳕伊

带星号的只有这一种情况，多套个IF就满足了