[已解决]excel vba如何将单元格中的数值提取出来

lianglijia0318

excel vba如何将单元格中的数值提取出来
例如：aaaa67bbb
           ccccrrrr6dddd
将67
    6提取出来，谢谢!

最佳答案

月排行榜 / 总排行榜

ws278106483

2012-8-23 14:55

1. =MID(A1,MATCH(0,MID(A1,ROW($1:$12),1)*0,),COUNT(MID(A1,ROW($1:$12),1)*0))

复制代码

用函数做了个。才学没用多久。呵呵。。

跳转到最佳答案楼层

ws278106483

1. =MID(A1,MATCH(0,MID(A1,ROW($1:$12),1)*0,),COUNT(MID(A1,ROW($1:$12),1)*0))

复制代码

用函数做了个。才学没用多久。呵呵。。

ws278106483

附件也跟上吧。            

周义坤

1. Sub ek_sky()
   
2.     Dim arr, i&, z As Object, arb
   
3.     Set z = CreateObject("vbscript.regexp")
   
4.     arr = Range("A1").CurrentRegion
   
5.     ReDim arb(1 To UBound(arr), 1 To 1)
   
6.     For i = 1 To UBound(arr)
   
7.         With z
   
8.             .Global = True
   
9.             .Pattern = "\D"
   
10.             If .test(arr(i, 1)) Then
    
11.                 arb(i, 1) = .Replace(arr(i, 1), "")
    
12.             End If
    
13.         End With
    
14.     Next i
    
15.     Range("B:B").ClearContents
    
16.     Range("B1").Resize(UBound(arr)) = arb
    
17. End Sub

复制代码

周义坤

请看附件： k1.zip (6.79 KB, 下载次数: 13)

2012-8-23 15:10 上传

点击文件名下载附件