求高手，用电信息筛选整理~

jyseh2013

要解决的问题：该表是用户用电量清单，现要知道张三、李四、王五这三人各自最后一次无用电或用电日期，如何实现呢？
用电清单.zip (3.69 KB, 下载次数: 16)

2014-4-20 14:23 上传

点击文件名下载附件

蓝桥玄霜

1. Sub lqxs()
   
2. Dim Arr, i&, r%, Arr1(), n&, m&, nn&, ks, js, j&
   
3. Sheet2.Activate
   
4. nn = 1
   
5. [a2:j5000].ClearContents
   
6. Arr = Sheet1.[a1].CurrentRegion
   
7. For i = 2 To UBound(Arr)
   
8.     If Arr(i, 2) <> Arr(i - 1, 2) Then
   
9.         r = r + 1
   
10.         ReDim Preserve Arr1(1 To r)
    
11.         Arr1(r) = i
    
12.     End If
    
13. Next
    
14. For i = 1 To r
    
15.     m = 0: n = 0
    
16.     If i <> r Then
    
17.         js = Arr1(i + 1) - 1
    
18.     Else
    
19.         js = UBound(Arr)
    
20.     End If
    
21.     ks = Arr1(i)
    
22.     For y = 6 To 7
    
23.         For j = js - 1 To ks Step -1
    
24.             If Arr(j, y) > Arr(j + 1, y) Then
    
25.                 If y = 6 Then n = j Else m = j
    
26.             End If
    
27.         Next
    
28.     Next
    
29.     If n = m Then
    
30.         nn = nn + 1
    
31.         Cells(nn, 1).Resize(1, UBound(Arr, 2)) = Application.Index(Arr, n, 0)
    
32.     ElseIf n < m Then
    
33.         If Arr(n, 6) = Arr(n, 7) Then
    
34.             nn = nn + 1
    
35.             Cells(nn, 1).Resize(1, UBound(Arr, 2)) = Application.Index(Arr, n, 0)
    
36.         End If
    
37.     Else
    
38.         If Arr(n, 6) = Arr(m, 6) Then
    
39.         nn = nn + 1
    
40.         Cells(nn, 1).Resize(1, UBound(Arr, 2)) = Application.Index(Arr, m, 0)
    
41.         End If
    
42.     End If
    
43. Next
    
44. End Sub
    

复制代码

蓝桥玄霜

在本表上删除会删除原始数据，所以放在表2.
请见附件。

jyseh2013

还没来得及试验，如果先按日期这一列升序排序，然后筛选户号，运行宏得到最后一次无用电或用电信息怎么实现呢？

yjh_27

jyseh2013 发表于 2014-4-21 12:54
还没来得及试验，如果先按日期这一列升序排序，然后筛选户号，运行宏得到最后一次无用电或用电信息怎么实现 ...

筛选户号
是不重复户号，还是指定的户号

yjh_27

参见附件。

jyseh2013

yjh_27 发表于 2014-4-21 22:17
参见附件。

非常感谢测试正确，与手动筛选后的结果一致，宏运行没溢出。但有两种特殊情况
先前我忘记说明，现补上，帮忙再看看吧~ 用电清单（特殊情况）.zip (3.8 KB, 下载次数: 5)

2014-4-22 10:32 上传

点击文件名下载附件

jyseh2013

蓝桥玄霜 发表于 2014-4-20 17:30
在本表上删除会删除原始数据，所以放在表2.
请见附件。

我这变有13000多行信息，运行宏后出错了

蓝桥玄霜

jyseh2013 发表于 2014-4-22 10:34
我这变有13000多行信息，运行宏后出错了

出错在哪一句？建议上传附件看看。

yjh_27

jyseh2013 发表于 2014-4-22 10:31
非常感谢测试正确，与手动筛选后的结果一致，宏运行没溢出。但有两种特殊情况
先前我忘记说明，现补上 ...

参见附件。