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

billyzhang0609

A列信息如附件所示，很杂乱：

关键字为“次”

诸如 。。。。。。用户不清楚回召次数，。。。。。。
       。。。。。。2-3次。。。。。。
       。。。。。。3次。。。。。。
       。。。。。。100次。。。。。。

希望碰到如上情况，自动得到

        0
        2
        3
        100

也就是碰到关键字“次”，取到“次”前面所有的数字为止，如果“次”前面没有数字如第一种情况，则该单元格=0

最佳答案

月排行榜 / 总排行榜

grf1973

2015-11-3 10:52

请看附件。

跳转到最佳答案楼层

billyzhang0609

电脑有诸多限制，附件在这里。

grf1973

1. Sub tt()
   
2.     arr = Range("a1:b" & [a65536].End(3).Row)
   
3.     For i = 2 To UBound(arr)
   
4.         x = Split(arr(i, 1), "次")(0)
   
5.         If Len(x) Then
   
6.             For j = 1 To Len(x)
   
7.                 If IsNumeric(Mid(x, j, 1)) Then Exit For
   
8.             Next
   
9.             If j <= Len(x) Then arr(i, 2) = Val(Mid(x, j)) Else arr(i, 2) = 0
   
10.         End If
    
11.     Next
    
12.     [b1].Resize(UBound(arr)) = Application.Index(arr, , 2)
    
13. End Sub
    

复制代码

grf1973

请看附件。

爱疯

需要区分这种情况吗？

A519，5次以下
A524，5次以上


正则用的少，学的一点，又忘了

billyzhang0609

爱疯 发表于 2015-11-3 11:21
需要区分这种情况吗？

A519，5次以下

不用啦，统统算作5，否则太复杂了

billyzhang0609

grf1973 发表于 2015-11-3 10:52
请看附件。

二维数组有点复杂，我还是初级阶段，模型修改了一下，我就不知道如何改了，怎样达到下面附件的效果？

billyzhang0609

修改后的模型如下附件：

grf1973

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.         x = Split(arr(i, 1), "次")(0)
   
6.         If Len(x) Then
   
7.             For j = 1 To Len(x)
   
8.                 If IsNumeric(Mid(x, j, 1)) Then Exit For
   
9.             Next
   
10.             If j <= Len(x) Then brr(i, 1) = Val(Mid(x, j)) Else brr(i, 1) = 0
    
11.         End If
    
12.     Next
    
13.     [a1].Resize(UBound(arr)) = brr
    
14. End Sub

复制代码

billyzhang0609

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

非常感谢，继续研究中！