关于EXCEL查找筛选的问题

gongqinhui

我是一个供暖公司的小职员，有几个问题请教。
我手里有去年的客户档案，也有部门今年的档案，我想达到如下目的：
1、我在2017年档案里面输入小区户号，在2016年档案中查找，如果找到了，就显示有；如果找不到就显示找不到，或者筛选出来，我要去安装设备。
2、对于2016年的档案，2017年档案中如果已经调试过了，就删除，如果没有就保留，是我需要去拜访的。
请大神帮忙

gongqinhui

可以的话，您留下邮箱，就是简单的EXCEL表格

uynayna

1. Sub test()
   
2.    Dim arr, brr
   
3.    Dim d, d1
   
4.    Dim i, j
   
5.    Set d = CreateObject("scripting.dictionary")
   
6.    Set d1 = CreateObject("scripting.dictionary")
   
7.    arr = Sheets("2016年入暖客户").UsedRange
   
8.    brr = Sheets("2017年客户").Range("a1").CurrentRegion
   
9.    For i = 1 To UBound(arr)
   
10.        For j = 1 To UBound(arr, 2)
    
11.            d(arr(i, j)) = ""
    
12.        Next
    
13.    Next
    
14.    For i = 2 To UBound(brr)
    
15.        d1(brr(i, 1)) = ""
    
16.        If d.exists(brr(i, 1)) Then
    
17.           brr(i, 2) = "否"
    
18.        Else
    
19.           brr(i, 2) = "是"
    
20.        End If
    
21.    Next
    
22.    ReDim crr(1 To UBound(arr) * UBound(arr, 2), 1 To 1)
    
23.    For i = 1 To UBound(arr)
    
24.        For j = 1 To UBound(arr, 2)
    
25.             If arr(i, j) <> "" Then
    
26.                 If Not d1.exists(arr(i, j)) Then
    
27.                    n = n + 1
    
28.                    crr(n, 1) = arr(i, j)
    
29.                 End If
    
30.             End If
    
31.        Next
    
32.    Next
    
33.    With Sheets("2017年客户")
    
34.        .Range("a1").Resize(UBound(brr), UBound(brr, 2)) = brr
    
35.    End With
    
36.    With Sheets("未巡视或流失客户")
    
37.        .Range("a2:b20000").Clear
    
38.        .Range("a2").Resize(UBound(crr), 1) = crr
    
39.    End With
    
40. End Sub
    

复制代码

uynayna

详见附件 A区.rar (16.47 KB, 下载次数: 7)

2017-10-11 13:29 上传

点击文件名下载附件

gongqinhui

uynayna 发表于 2017-10-11 13:29
详见附件

谢谢，您真厉害