[已解决]求vba

faiki

book1.rar (63.29 KB, 下载次数: 11)

2014-6-19 09:28 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

xdragon

2014-6-19 09:54

1. Sub t()
   
2.   Dim arr, brr, re(), n(9), i&, j%, k%, d As Object, s As String * 1
   
3.   arr = Range("I3:P5").Value
   
4.   brr = Range("I7:P9").Value
   
5.   Set d = CreateObject("scripting.dictionary")
   
6.   ReDim re(1 To UBound(arr), 1 To UBound(arr, 2))
   
7.   For i = 1 To UBound(arr)
   
8.      For j = 1 To UBound(arr, 2)
   
9.         For k = 1 To Len(arr(i, j))
   
10.            s = Mid(arr(i, j), k, 1)
    
11.            d(s) = ""
    
12.         Next
    
13.         For k = 1 To Len(brr(i, j))
    
14.            s = Mid(brr(i, j), k, 1)
    
15.            d(s) = ""
    
16.         Next
    
17.         re(i, j) = Join(d.keys, "")
    
18.         d.RemoveAll
    
19.      Next
    
20.   Next
    
21.   Range("I13").Resize(UBound(re), UBound(re, 2)) = re
    
22. End Sub

复制代码

跳转到最佳答案楼层

baksy

请模拟一下；
        -- i3和i7合并而且这8个数有相同的只要显示1个放i13

faiki

baksy 发表于 2014-6-19 09:36
请模拟一下；
        -- i3和i7合并而且这8个数有相同的只要显示1个放i13

i13不是有结果吗

baksy

faiki 发表于 2014-6-19 09:38
i13不是有结果吗

结果是怎么得来的？

faiki

baksy 发表于 2014-6-19 09:41
结果是怎么得来的？

i3是0083,i7是0922,合在一起是00830922,再把相同的数只要1个就是08392

xdragon

1. Sub t()
   
2.   Dim arr, brr, re(), n(9), i&, j%, k%, d As Object, s As String * 1
   
3.   arr = Range("I3:P5").Value
   
4.   brr = Range("I7:P9").Value
   
5.   Set d = CreateObject("scripting.dictionary")
   
6.   ReDim re(1 To UBound(arr), 1 To UBound(arr, 2))
   
7.   For i = 1 To UBound(arr)
   
8.      For j = 1 To UBound(arr, 2)
   
9.         For k = 1 To Len(arr(i, j))
   
10.            s = Mid(arr(i, j), k, 1)
    
11.            d(s) = ""
    
12.         Next
    
13.         For k = 1 To Len(brr(i, j))
    
14.            s = Mid(brr(i, j), k, 1)
    
15.            d(s) = ""
    
16.         Next
    
17.         re(i, j) = Join(d.keys, "")
    
18.         d.RemoveAll
    
19.      Next
    
20.   Next
    
21.   Range("I13").Resize(UBound(re), UBound(re, 2)) = re
    
22. End Sub

复制代码