[已解决]请各位老师帮忙解决一个VBA问题

bbhiox

请各位老师帮忙解决一个VBA提取数字的问题,具体看附件

最佳答案

月排行榜 / 总排行榜

happym8888

2012-2-27 21:39

1. 
   
2. 
   
3. Public Function FN(x As String)
   
4. For i = 1 To Len(x)
   
5. If Mid(x, i, 1) Like "[0-9]" Then FN = FN & Mid$(x, i, 1)
   
6. Next
   
7. End Function
   
8. 
   
9. Public Function FNA(x As String)
   
10. For i = 1 To Len(x)
    
11. If Mid(x, i, 1) Like "[A-Za-z]" Then
    
12. For j = i + 1 To Len(x)
    
13.     If Mid(x, j, 1) Like "[0-9]" Then
    
14.     FNA = FNA & Mid$(x, j, 1)
    
15.     Else
    
16.     Exit Function
    
17.     End If
    
18. Next j
    
19. End If
    
20. Next i
    
21. End Function
    
22. 
    
23. 
    

复制代码

跳转到最佳答案楼层

juyuan888

VBA提取数字？？？汗，我听都没听过的说呢。。真是爱莫能助哎

爱疯

e列是保留所有数字？
f列用语言说，规律是啥？

happym8888

1. 
   
2. 
   
3. Public Function FN(x As String)
   
4. For i = 1 To Len(x)
   
5. If Mid(x, i, 1) Like "[0-9]" Then FN = FN & Mid$(x, i, 1)
   
6. Next
   
7. End Function
   
8. 
   
9. Public Function FNA(x As String)
   
10. For i = 1 To Len(x)
    
11. If Mid(x, i, 1) Like "[A-Za-z]" Then
    
12. For j = i + 1 To Len(x)
    
13.     If Mid(x, j, 1) Like "[0-9]" Then
    
14.     FNA = FNA & Mid$(x, j, 1)
    
15.     Else
    
16.     Exit Function
    
17.     End If
    
18. Next j
    
19. End If
    
20. Next i
    
21. End Function
    
22. 
    
23. 
    

复制代码

bbhiox

happym8888 发表于 2012-2-27 21:39

谢谢帮忙,让我进一步了解了VBA可以更好地解决EXCEL的操作要求