如何用VBA数组技术找出二列数据的不同

VBA之恋

lsc900707 发表于 2017-10-22 13:11
代码需要审核，先上个附件：

你好，附件解压提示错误

lsc900707

VBA之恋 发表于 2017-10-22 21:38
你好，附件解压提示错误

你用什么解压?我用winrar解压正常的。

Kaohsing

VBA之恋 发表于 2017-10-22 21:36
你好，里面没内容呀

1. Sub kaohisng_js()
   
2. 
   
3.     Application.ScreenUpdating = False
   
4.     Dim JS As Object
   
5.     Dim I#, K#
   
6.     Dim GHB(1 To 100000, 1 To 1)
   
7.     Set JS = CreateObject("ScriptControl")
   
8.     JS.Language = "JScript"
   
9.     s = "var aa={bb:'0' };"
   
10.     JS.addcode s
    
11.     With Sheet1
    
12.         For I = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
    
13.             s = "aa['" & .Cells(I, "A").Text & "']=" & I & ";"
    
14.             JS.addcode s
    
15.         Next
    
16.         For I = 2 To .Cells(Rows.Count, "D").End(xlUp).Row
    
17.             If Len(JS.eval("aa['" & .Cells(I, "D").Text & "']")) = 0 Then
    
18.                 K = K + 1
    
19.                 GHB(K, 1) = .Cells(I, "D").Text
    
20.             End If
    
21.         Next
    
22.     End With
    
23.     With Sheet2
    
24.         .Cells.Clear
    
25.         .[A1].Resize(K, 1) = GHB
    
26.     End With
    
27.     Application.ScreenUpdating = True
    
28.     MsgBox "JOB IS OKEY"
    
29. End Sub
    

复制代码

VBA之恋

朱荣兴 发表于 2017-10-22 22:16
呵呵，什么叫没反应，关键是你是怎么弄的，我测试过了，结果是正确的呀。

好，我再试试，谢了谢了