提取特定文字格式不一致，可能会很乱，会比较复杂，麻烦

sulli112

如图所示在sheet1表中这些班级名字很乱，我想要的效果是          如图sheet2中将大写数字转换为阿拉伯数字，例如：1.当文字中找到拼音等于“SAI/YI/DE”时转换为指定文字”赛/依/德”                                                         902/801 类似提取数字部分，中间加0*/0/*

2.大写数字转换为阿拉伯数字，最后1+2出来的结果类似：赛1/依1/德1
3‘。如果是L1 M1 这些班名时不用修改

最好标上解释，我到时候可以按照实际情况修改，谢谢，因为在贴吧找了很久找不到类似的，麻烦各位大神指导指导一下，如果函数公式也可以实现的话，欢迎指导一下，谢谢

sulli112

如图所示在sheet1表中这些班级名字很乱，我想要的效果是
1.在文中找到拼音等于“SAI/YI/DE”时转换为指定文字”赛/依/德”   
2.大写数字转换为阿拉伯数字，最后1+2出来的结果类似：赛1/依1/德1
3‘。如果是L1 M1 这些班名时不用修改

sulli112

如图sheet2中将大写数字转换为阿拉伯数字，例如：1.当文字 902/801 类似提取数字部分，中间加0*/0/*


上面发帖格式太乱了，我在下面重新说明了

ggmmlol

好像是教学相关的问题。
不过，一个简单的求助问题都说不清楚，就这样的表达能力，要去教学生，真是替那些学生娃担心。希望只是行政岗位上的，真要是科任教师，那家长们就要太糟心了

sulli112

ggmmlol 发表于 2021-2-10 18:42
好像是教学相关的问题。
不过，一个简单的求助问题都说不清楚，就这样的表达能力，要去教学生，真是替那些 ...

我不清楚我哪里表达不清楚，刚开始是格式问题，我都特地在下面标注好，如果是sheet2表格，可能是漏了文字没有解释清楚，生活中总会有那么几个人觉得自己某些方面比别人突出而觉得高傲，看不起别人，术业有专攻，每个人都会有自己突出的地方，你不想解答，我也没有逼着你，但是大过年的，说话这么难听，我还真的第一次见。

sulli112

sulli112 发表于 2021-2-10 12:21
如图sheet2中将大写数字转换为阿拉伯数字，例如：1.当文字 902/801 类似提取数字部分，中间加0*/0/*

sheet2是指提取表格中的数字部分，将大写数字转换为阿拉伯数字，并且中间用0来连接，类似A1单元格为902，A2单元格为801，A3单元格为801，A4单元格为801以此类推，上面说明是因为中午时间比较紧急，导致复制的时候有个别文字说明漏复印了，导致要求不够清晰。

sulli112

sulli112 发表于 2021-2-10 12:20
如图所示在sheet1表中这些班级名字很乱，我想要的效果是
1.在文中找到拼音等于“SAI/YI/DE”时转换为指定 ...

1. Sub dwds()
   
2. Set reg = CreateObject("vbscript.regexp")
   
3. arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
   
4. brr = Array("一", "二", "三", "四", "五", "六", "七", "八", "九")
   
5. With reg
   
6. .Global = True
   
7. .Pattern = ".*?([\d\w^一-龥一二三四五六七八九十]+)|.+"
   
8. crr = [a1].CurrentRegion
   
9. For x = 1 To UBound(crr)
   
10.     Cells(x, 2) = .Replace(crr(x, 1), "$1")
    
11. Next
    
12. End With
    
13. For i = LBound(arr) To UBound(arr)
    
14.     [b:b].Replace brr(i), arr(i), lookat:=xlPart
    
15. Next
    
16. 
    
17. 
    
18. 
    
19. End Sub
    
20. 
    

复制代码

我只会修改在A列基础上面将中文小写一二三四............修改为1234，类似A1:赛罗二班，在B1出来的结果为:赛罗1班，其他要提取拼音为sai/yi/de转换为赛/依/德加上阿拉伯数字，我就不会修改了

wanghongfei

这个在你的另一个提问里我给附件了