求助大神给设计个

zhaoqiang852

求助给设计个公式，方便好用的

dancefly09

需求呢？最好先把需求直接写出来，而不是放在附件里

zhaoqiang852

dancefly09 发表于 2018-11-19 17:37
需求呢？最好先把需求直接写出来，而不是放在附件里

能够找出2列数有差别的地方，因为2列数的合计不等，我想找出那个地方不等

蓝桥玄霜

都是贷方，凭证号之间又没有什么关系，估计不好查。

dancefly09

257公共-处理.zip (43.74 KB, 下载次数: 0)

2018-11-20 10:33 上传

点击文件名下载附件

1. Sub 对比()
   
2.     Dim Dic As Object
   
3.     Set Dic = CreateObject("scripting.dictionary")
   
4.     For i = 4 To Range("A65535").End(xlUp).Row - 1
   
5.         Cells(i, "B").Interior.ColorIndex = xlNone
   
6.         If Dic.exists(Cells(i, "B").Value) Then
   
7.             Cells(i, "D") = Split(Dic(Cells(i, "B").Value), "|")(0)
   
8.             Dic(Cells(i, "B").Value) = (CInt(Split(Dic(Cells(i, "B").Value), "|")(0)) + 1) & "|" & Split(Dic(Cells(i, "B").Value), "|")(1)
   
9.         Else
   
10.             Dic(Cells(i, "B").Value) = "1|0"
    
11.             Cells(i, "D") = 1
    
12.         End If
    
13.     Next i
    
14.     For i = 4 To Range("E65535").End(xlUp).Row - 1
    
15.         Cells(i, "F").Interior.ColorIndex = xlNone
    
16.         If Dic.exists(Cells(i, "F").Value) Then
    
17.             Cells(i, "H") = Split(Dic(Cells(i, "F").Value), "|")(1)
    
18.             Dic(Cells(i, "F").Value) = Split(Dic(Cells(i, "F").Value), "|")(0) & "|" & (CInt(Split(Dic(Cells(i, "F").Value), "|")(1)) + 1)
    
19.         Else
    
20.             Dic(Cells(i, "F").Value) = "0|1"
    
21.             Cells(i, "H") = 1
    
22.         End If
    
23.     Next i
    
24.     For i = 4 To Range("A65535").End(xlUp).Row - 1
    
25.         If Dic.exists(Cells(i, "B").Value) Then
    
26.             Cells(i, "C") = Dic(Cells(i, "B").Value)
    
27.             If Split(Cells(i, "C"), "|")(0) <> Split(Cells(i, "C"), "|")(1) Then
    
28.                 Cells(i, "B").Interior.ColorIndex = 7
    
29.             End If
    
30.         End If
    
31.     Next i
    
32.     For i = 4 To Range("E65535").End(xlUp).Row - 1
    
33.         If Dic.exists(Cells(i, "F").Value) Then
    
34.             Cells(i, "G") = Dic(Cells(i, "F").Value)
    
35.             If Split(Cells(i, "G"), "|")(0) <> Split(Cells(i, "G"), "|")(1) Then
    
36.                 Cells(i, "F").Interior.ColorIndex = 27
    
37.             End If
    
38.         End If
    
39.     Next i
    
40.     MsgBox "分析对比完成，请查阅填色的单元格", vbOKOnly + vbInformation, "提示"
    
41. End Sub
    
42. 
    
43. Private Sub CommandButton1_Click()
    
44. Call 对比
    
45. End Sub
    

复制代码

dancefly09

咦，代码怎么发不上来

dancefly09