数字与字母分离的问题

杨小妹

附件 数字与字母分离附件.rar (171.6 KB, 下载次数: 17)

2024-8-3 08:28 上传

点击文件名下载附件

谢谢老师！

杨建营

请楼主参考。

quqiyuan

参与一下，仅供参考。。。

micch

1. sub Main
   
2. ar=sheet1.range("A1:c55").value
   
3. for i = 1 to 55
   
4. ar(i,2)=val(ar(i,1)
   
5. ar(i,3)=mid(ar(i,1),len(ar(i,2))+1)
   
6. next
   
7. sheet1.range("A1:c55").value=ar
   
8. end sub

复制代码

明天会更好zj

这种规律性这么强的数据很简单

一招秒杀

=LEFT(A1,FIND("[a-zA-Z]",A1)-1)    =MID(A1,FIND("[a-zA-Z]",A1),LEN(A1))
随手两个公式就可以解决的问题，就不用麻烦VBA宏了，这么简单的问题，问下人工智能就好了，都2024年了，你们都还不会使用人工智能吗？ 那可能 太落后了。

ykcbf1100

这个用正则比较合适，不管数字在前还是数字在后，都能提取到。

ykcbf1100

正则

1. Sub ykcbf()   '//2024.8.3
   
2.     Set reg = CreateObject("VBScript.RegExp")
   
3.     r = Cells(Rows.Count, 1).End(3).Row
   
4.     With reg
   
5.         .Pattern = "[^\d+]"
   
6.         .Global = True
   
7.         .IgnoreCase = True
   
8.     End With
   
9.     For i = 1 To r
   
10.         st = Cells(i, 1)
    
11.         Cells(i, 2) = reg.Replace(st, "")
    
12.         Cells(i, 3) = Replace(st, Cells(i, 2), "")
    
13.     Next
    
14.     Set reg = Nothing
    
15.     MsgBox "OK！"
    
16. End Sub
    

复制代码

参与一下。。。

伊可赛二

我的城市你来过

=REGEXP(A1,"\d+|\w+")