[已解决]提取数据,next 没有 for!

张雄友

提取数据,next 没有 for!

最佳答案

月排行榜 / 总排行榜

grf1973

2015-4-5 20:14

用了你的正则，没用辅助列。

跳转到最佳答案楼层

ghostjiao

If Len(F) > 0 Then

这里没有对应的end if

张雄友

用正则表达式，还是会少了数据。

Function getNum(sr) '对文件名的数字提取出来，对数字排序，调用。
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    With regex
        .Global = True
        .Pattern = "\D"
        getNum = Val(.Replace(sr, ""))
    End With
End Function

grf1973

。。。。。。。。。。。。。真是会折腾啊，情况层出不穷。

张雄友

grf1973 发表于 2015-4-5 14:58
。。。。。。。。。。。。。真是会折腾啊，情况层出不穷。

3楼的正则表达式没有用得上？这样就不用辅助列了。

grf1973

没用。如果不带路径的文件名，用val(文件名)就行了。如果带路径，正则也不行。

张雄友

grf1973 发表于 2015-4-5 17:10
没用。如果不带路径的文件名，用val(文件名)就行了。如果带路径，正则也不行。

我是这样想的：
如2013年1月，就是20131
如2013年2月，就是20132
如2015年12月，就是201512

这样提取排序。

grf1973

用了你的正则，没用辅助列。

张雄友

grf1973 发表于 2015-4-5 20:14
用了你的正则，没用辅助列。

用了几天，出问题了。
1月份没有姓名这列，就所有数据都提取不到了。如果找不到姓名这列，就姓名这列不用提取，提取工号，实发工资。
就是姓名这列空出来。就是说哪一列找不到就照样提取，只是空出来。实现效果！

grf1973

见另一帖。