[已解决]请教大神：怎样从A列里提取6位数？谢！

白云无尽9987

666.rar (7.96 KB, 下载次数: 13)

2016-4-13 21:54 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2016-4-13 22:31

1. Sub Macro1()
   
2. Dim arr, brr, i&
   
3. arr = [a1:a14]
   
4. ReDim brr(1 To UBound(arr), 1 To 1)
   
5. With CreateObject("vbscript.regexp")
   
6.     .Pattern = "\d{6}"
   
7.     .Global = True
   
8.     For i = 1 To UBound(arr)
   
9.         Set ms = .Execute(arr(i, 1))
   
10.         If ms.Count > 0 Then brr(i, 1) = ms(0)
    
11.     Next
    
12. End With
    
13. Range("c1").Resize(UBound(brr)) = brr
    
14. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, i&
   
3. arr = [a1:a14]
   
4. ReDim brr(1 To UBound(arr), 1 To 1)
   
5. With CreateObject("vbscript.regexp")
   
6.     .Pattern = "\d{6}"
   
7.     .Global = True
   
8.     For i = 1 To UBound(arr)
   
9.         Set ms = .Execute(arr(i, 1))
   
10.         If ms.Count > 0 Then brr(i, 1) = ms(0)
    
11.     Next
    
12. End With
    
13. Range("c1").Resize(UBound(brr)) = brr
    
14. End Sub

复制代码

乐乐2006201506

很好的代码，先收藏了。