[已解决]如何提取数字

love贝壳

如何提取数字如附件B列所示

最佳答案

月排行榜 / 总排行榜

雨吧

2016-12-18 08:16

1. Sub Yuba()
   
2.     Dim i%, j%, s$
   
3.     [b1:b999] = ""
   
4.     For i = 1 To [a1].End(4).Row
   
5.         s = Cells(i, 1).Value
   
6.         For j = 1 To Len(s)
   
7.             If Mid(s, j, 1) Like "[0-9]" Then
   
8.                 Cells(i, 2) = Cells(i, 2) & Mid(s, j, 1)
   
9.             End If
   
10.         Next
    
11.     Next
    
12. End Sub

复制代码

跳转到最佳答案楼层

望帝春心

这类问题用VBA比较好

望帝春心

文本中掺杂一串连续的数字是比较好处理的，像这种情况估计还是VBA处理好点，函数不会

望帝春心

1. Sub test()
   
2. Dim i&, arr, brr()
   
3. arr = Cells(1, 1).Resize(Cells(1, 1).End(4).Row, 1).Value
   
4. ReDim brr(1 To UBound(arr), 1 To 1)
   
5.     With CreateObject("vbscript.regexp")
   
6.         .Pattern = "\d+"
   
7.         .Global = True
   
8.             For i = 1 To UBound(arr)
   
9.                 Set mat = .Execute(arr(i, 1))
   
10.                     For Each M In mat
    
11.                         s = s & M
    
12.                     Next
    
13.                 brr(i, 1) = s
    
14.                 s = ""
    
15.             Next
    
16.         End With
    
17. Cells(1, 2).Resize(UBound(arr), 1) = brr
    
18. End Sub

复制代码

雨吧

1. Sub Yuba()
   
2.     Dim i%, j%, s$
   
3.     [b1:b999] = ""
   
4.     For i = 1 To [a1].End(4).Row
   
5.         s = Cells(i, 1).Value
   
6.         For j = 1 To Len(s)
   
7.             If Mid(s, j, 1) Like "[0-9]" Then
   
8.                 Cells(i, 2) = Cells(i, 2) & Mid(s, j, 1)
   
9.             End If
   
10.         Next
    
11.     Next
    
12. End Sub

复制代码

雨吧

还可以

1. Sub Yuba2()
   
2.     Dim i%, j%, s$
   
3.     [b1:b999] = ""
   
4.     For i = 1 To [a1].End(4).Row
   
5.         s = Cells(i, 1).Value
   
6.         For j = 1 To Len(s)
   
7.            If IsNumeric(Mid(s, j, 1)) Then
   
8.                 Cells(i, 2) = Cells(i, 2) & Mid(s, j, 1)
   
9.             End If
   
10.         Next
    
11.     Next
    
12. End Sub

复制代码

如何提取数字.rar (18.28 KB, 下载次数: 6)

2016-12-18 08:27 上传

点击文件名下载附件

苏子龙

1. 数组三键结束

复制代码

1. =SUM(MID(A1,LARGE(IF(ISNUMBER(-MID(A1,ROW($1:$99),1)),ROW($1:$99)),ROW(OFFSET($A$1,,,COUNT(-MID(A1,ROW($1:$99),1))))),1)*10^(ROW(OFFSET($A$1,,,COUNT(-MID(A1,ROW($1:$99),1))))-1))

复制代码