ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > E问E答 > 函数与公式 > 如何取中间不定个数0的编码尾部字符?

如何取中间不定个数0的编码尾部字符?

作者:绿色风 分类: 时间:2022-08-17 浏览:120
楼主
gouweicao78
Q: 如何提取编码右侧尾部字符?
编码中间有不定个数的0,然后是字母和其他字符组成的尾部
例如:TDC00AP10*C*,提取AP10*C*

A:公式如下:
  1. =LOOKUP("座",REPLACE(A2,1,FIND(0&CHAR(ROW($65:$90)),A2),))

【解析】
1、使用CHAR(ROW($65:$90))分别返回A~Z字母,然后用FIND(如果有小写可以用SEARCH函数)查找0A、0B等出现的位置,并将此前的文字用REPLACE替换掉。
因为没有存在0A时,FIND会查找错误,所以返回的是1个正确和25个错误值。
2、利用LOOKUP函数查找忽略错误值的方法,查找最后一个文本。
如何取中间不定个数0的编码尾部字符?.rar
2楼
larkzh
为什么是"座"呢?是最后一个汉字吗?
3楼
Zaezhong
不确定的0,那么应该存在没有零的情况吧,没有零公式就有问题了
  1. Sub test()
  2.     Dim rng As Range, cell As Range
  3.     Set rng = Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
  4.     With CreateObject("vbscript.regexp")
  5.         .ignorecase = True
  6.         .Global = True
  7.         .Pattern = "(^[a-z]{1,}0+)?"
  8.         For Each cell In rng
  9.             If .test(cell) Then
  10.                 For Each Match In .Execute(cell)
  11.                     cell.Offset(, 2) = .Replace(cell, "")
  12.                 Next
  13.             End If
  14.         Next
  15.     End With
  16. End Sub

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap