[已解决]按条件提取

left369

按条件提取

最佳答案

月排行榜 / 总排行榜

dsmch

2014-11-21 20:08

1. Function zdy(rng, n)
   
2. Dim w(9), i%
   
3. x = Split(rng, ",")
   
4. For i = 1 To UBound(x)
   
5.     y = Mid(x(i), n, 1)
   
6.     w(y) = y
   
7.     If Len(Join(w, "")) = 5 Then zdy = Join(w, ""): Exit For
   
8. Next
   
9. End Function

复制代码

跳转到最佳答案楼层

Select

看不懂意思

dsmch

1. Function zdy(rng, n)
   
2. Dim w(9), i%
   
3. x = Split(rng, ",")
   
4. For i = 1 To UBound(x)
   
5.     y = Mid(x(i), n, 1)
   
6.     w(y) = y
   
7.     If Len(Join(w, "")) = 5 Then zdy = Join(w, ""): Exit For
   
8. Next
   
9. End Function

复制代码

left369

dsmch 发表于 2014-11-21 20:08

极度强大的函数，谢谢。一个函数名就解决了。非常感谢！

如果是求余下的5个不同数字，代码不知道哪里修改，老师！

left369

dsmch 发表于 2014-11-21 20:08

比如已提取的5个不同的数字：如提取是01467  ，那么余下的5个数字为：23589  。这个也可以用函数求出么。

dsmch

1. Function zdy2(rng, n)
   
2. Dim w(9), i%, zf$$
   
3. zf = "0123456789"
   
4. x = Split(rng, ",")
   
5. For i = 1 To UBound(x)
   
6.     y = Mid(x(i), n, 1)
   
7.     w(y) = y: zf = Replace(zf, y, "")
   
8.     If Len(Join(w, "")) = 5 Then zdy2 = zf: Exit For
   
9. Next
   
10. End Function

复制代码

left369

dsmch 发表于 2014-11-21 22:18

• Dim w(9), i%, zf$$
• 谢谢老师！ 这句代码后面是不是多了一个$  。
•