产品型号去杂

江建民

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

久了不联系疏远

没一点规律

用户老丫丫

正则自定义函数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, 下载次数: 58)

2021-12-16 13:31 上传

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

江湖狩猎

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

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

2021-12-16 13:31 上传

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

非一日之寒

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