[已解决]EXCEL 数组查找并列出

gyfhomevip

各位大神，请帮助解答一下，非常感谢！

最佳答案

月排行榜 / 总排行榜

苏子龙

2016-12-22 08:29

1. Sub tt()
   
2.     Dim i%, num$, str$, fn$
   
3.     num = [b6]
   
4.     For i = 0 To 99
   
5.         fn = Format(i, "00")
   
6.         If InStr(num, Mid(fn, 1, 1)) > 0 Or InStr(num, Mid(fn, 2, 1)) > 0 Then
   
7.             str = str & " " & fn
   
8.         End If
   
9.     Next
   
10.     [d6] = Mid(str, 2)
    
11. End Sub

复制代码

跳转到最佳答案楼层

Excel学徒123

请上传附件

Excel学徒123

1. Option Explicit
   
2. 
   
3. Sub test()
   
4.     Dim Col%, irow%
   
5.     Dim objdic As Object
   
6.     Set objdic = CreateObject("scripting.dictionary")
   
7.     For Col = 1 To Len(Cells(6, 2))
   
8.         For irow = 0 To 9
   
9.             objdic(Mid(Cells(6, 2), Col, 1) & irow) = ""
   
10.             objdic(irow & Mid(Cells(6, 2), Col, 1)) = ""
    
11.         Next
    
12.     Next
    
13.     Range("f6") = Join(objdic.keys)
    
14. End Sub
    

复制代码

苏子龙

1. Sub tt()
   
2.     Dim i%, num$, str$, fn$
   
3.     num = [b6]
   
4.     For i = 0 To 99
   
5.         fn = Format(i, "00")
   
6.         If InStr(num, Mid(fn, 1, 1)) > 0 Or InStr(num, Mid(fn, 2, 1)) > 0 Then
   
7.             str = str & " " & fn
   
8.         End If
   
9.     Next
   
10.     [d6] = Mid(str, 2)
    
11. End Sub

复制代码