[已解决]一个去除（重复项目）的问题寻求帮忙！谢谢~！！！

js5

效果说明：
模拟效果：


问题包裹： 去重复查询.rar (12.59 KB, 下载次数: 14)

2017-9-1 22:24 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

苏子龙

2017-9-2 08:53

见附件里面

跳转到最佳答案楼层

苏子龙

见附件里面

js5

苏子龙 发表于 2017-9-2 08:53
见附件里面

老师您好！如从ListView2.ListView3A.ListView3B里面取值，而不是从单元格取值！？

怎么写·！？请老师给个代码！

苏子龙

js5 发表于 2017-9-2 13:32
老师您好！如从ListView2.ListView3A.ListView3B里面取值，而不是从单元格取值！？

怎么写·！？请老 ...

1. Private Sub CommandButton1_Click()
   
2.     Dim arr(1 To 65536, 1 To 3), i&, d As Object, n&
   
3.     Dim Lv0 As ListView, Lv1 As ListView, Lv2 As ListView, Lv3 As ListView
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     Set Lv0 = UserForm1.ListView1
   
6.     Set Lv1 = UserForm1.ListView2
   
7.     Set Lv2 = UserForm1.ListView3A
   
8.     Set Lv3 = UserForm1.ListView3B
   
9.    
   
10.     For i = 1 To Lv1.ListItems.Count
    
11.         With Lv1
    
12.         If Not d.exists(.ListItems(i).Text & "|" & .ListItems(i).SubItems(1) & "|" & .ListItems(i).SubItems(2)) Then
    
13.             n = d.Count + 1
    
14.             d(.ListItems(i).Text & "|" _
    
15.                 & .ListItems(i).SubItems(1) & "|" _
    
16.                 & .ListItems(i).SubItems(2)) = n
    
17.               arr(n, 1) = .ListItems(i).Text
    
18.               arr(n, 2) = .ListItems(i).SubItems(1)
    
19.               arr(n, 3) = .ListItems(i).SubItems(2)
    
20.           End If
    
21.         End With
    
22.     Next
    
23.     For i = 1 To Lv2.ListItems.Count
    
24.         With Lv2
    
25.       If Not d.exists(.ListItems(i).Text & "|" & .ListItems(i).SubItems(1) & "|" & .ListItems(i).SubItems(2)) Then
    
26.             n = d.Count + 1
    
27.             d(.ListItems(i).Text & "|" _
    
28.                 & .ListItems(i).SubItems(1) & "|" _
    
29.                 & .ListItems(i).SubItems(2)) = n
    
30.               arr(n, 1) = .ListItems(i).Text
    
31.               arr(n, 2) = .ListItems(i).SubItems(1)
    
32.               arr(n, 3) = .ListItems(i).SubItems(2)
    
33.           End If
    
34.         End With
    
35.     Next
    
36.     For i = 1 To Lv3.ListItems.Count
    
37.         With Lv3
    
38.         If Not d.exists(.ListItems(i).Text & "|" & .ListItems(i).SubItems(1) & "|" & .ListItems(i).SubItems(2)) Then
    
39.             n = d.Count + 1
    
40.             d(.ListItems(i).Text & "|" _
    
41.                 & .ListItems(i).SubItems(1) & "|" _
    
42.                 & .ListItems(i).SubItems(2)) = n
    
43.               arr(n, 1) = .ListItems(i).Text
    
44.               arr(n, 2) = .ListItems(i).SubItems(1)
    
45.               arr(n, 3) = .ListItems(i).SubItems(2)
    
46.           End If
    
47.         End With
    
48.     Next
    
49.     Lv0.ListItems.Clear
    
50.     For i = 1 To d.Count
    
51.         With Lv0.ListItems.Add()
    
52.           .Text = arr(i, 1)
    
53.          .SubItems(1) = arr(i, 2)
    
54.          .SubItems(2) = arr(i, 3)
    
55.         End With
    
56.     Next
    
57.     d.RemoveAll: Set d = Nothing: Erase arr
    
58.     Set Lv0 = Nothing: Set Lv1 = Nothing: Set Lv2 = Nothing: Set Lv3 = Nothing
    
59. End Sub

复制代码

js5

苏子龙 发表于 2017-9-2 14:59

老师谢谢你！

02761752696

学习  谢谢