[已解决]每三个表内容相比较，分别筛选三表之间数字不相同的行

dsmch

dsmch 发表于 2014-4-29 22:30
建议把问题分解，逐个测试。如1-3、1-6，最后3*（1-6）

1. Sub Macro1()
   
2. Dim arr, d(1 To 3), a(1 To 3)
   
3. For h = 1 To 2 '分两次循环行
   
4.     s = 0
   
5.     For i = 1 To 115 Step 57
   
6.         s = s + 1
   
7.         Set d(s) = CreateObject("scripting.dictionary")
   
8.         arr = Cells((h - 1) * 171 + i, 1).Resize(56, 9)
   
9.         For j = 1 To UBound(arr)
   
10.             zf = Join(Application.Index(arr, j, 0), ",")
    
11.             d(s)(zf) = ""
    
12.         Next
    
13.     Next
    
14.     For i = 1 To 3
    
15.         h2 = (h - 1) * 153 + (i - 1) * 51
    
16.         a(i) = d(i).keys
    
17.         s3 = 0
    
18.         For j = 0 To d(i).Count - 1
    
19.             s2 = 0
    
20.             For k = 1 To 2
    
21.                 x = (i + k - 1) Mod 3 + 1
    
22.                 If d(x).exists(a(i)(j)) Then s2 = s2 + 1
    
23.             Next
    
24.             If s2 <> 2 Then
    
25.                 s3 = s3 + 1
    
26.                 Sheet2.Cells(h2 + s3, 1).Resize(1, 9) = Split(a(i)(j), ",")
    
27.             End If
    
28.         Next
    
29.     Next
    
30.     For i2 = 1 To 3
    
31.         d(i2).RemoveAll
    
32.     Next
    
33. Next
    
34. Sheet2.Activate
    
35. [a:i] = [a:i].Value
    
36. End Sub
    

复制代码

dsmch

表一至表六测试，如果正确进行最后一步

ymq123

dsmch 发表于 2014-4-30 04:47
表一至表六测试，如果正确进行最后一步

通过测试是正确的，可以进行最后一步
谢谢！！！

ymq123

dsmch 发表于 2014-4-30 04:47
表一至表六测试，如果正确进行最后一步

最后一步我完成了
谢谢！！！

ymq123

dsmch 发表于 2014-4-30 04:47
表一至表六测试，如果正确进行最后一步

请问，运行后单元格左上角有绿点是什么原因？请明示。谢谢

dsmch

ymq123 发表于 2014-4-30 10:17
请问，运行后单元格左上角有绿点是什么原因？请明示。谢谢

35行代码是把文本转化为数值，增加列范围试试