[已解决]求关键字前面的数字

billyzhang0609

grf1973 发表于 2015-11-3 13:49

又遇到问题，就是当不含有关键字“次”的单元格在里面的时候，会有一个数字抠出来，好像都是“9”

其实当没有“次”，说明访问不成功，应该用0代替，如何去掉这个梗？

（之前的代码没有关键字，程序是按照什么逻辑取数字的呢？）

grf1973

billyzhang0609 发表于 2015-11-3 15:05
又遇到问题，就是当不含有关键字“次”的单元格在里面的时候，会有一个数字抠出来，好像都是“9”

其实 ...

1. Sub tt()
   
2.     arr = Range("f1:f" & [f65536].End(3).Row)
   
3.     ReDim brr(1 To UBound(arr), 1 To 1)
   
4.     For i = 2 To UBound(arr)
   
5.         If InStr(arr(i, 1), "次") = 0 Then     '不含“次”
   
6.             brr(i, 1) = 0
   
7.         Else                                   '含次
   
8.             x = Split(arr(i, 1), "次")(0)
   
9.             If Len(x) Then
   
10.                 For j = 1 To Len(x)
    
11.                     If IsNumeric(Mid(x, j, 1)) Then Exit For
    
12.                 Next
    
13.                 If j <= Len(x) Then brr(i, 1) = Val(Mid(x, j)) Else brr(i, 1) = 0
    
14.             End If
    
15.         End If
    
16.     Next
    
17.     [a1].Resize(UBound(arr)) = brr
    
18. End Sub
    

复制代码

billyzhang0609

grf1973 发表于 2015-11-3 15:35

谢谢你，真的非常感谢！