删除每两组或多组账号重复展示的信息

jinxuanmr

感谢您的阅读, 如能出手解决,将感激不尽!!!

  实际的数据是根据学号主和编号次 降序排列的, 数据中 相同学号ID的编号视为一组,
     其中有很多两组或多组的编号有重复展示, 需要对重复展示的编号组进行删除处理.无论上下删,只保留一组就行.
        简单举例: 555,33,555    其中555展示了两次, 删除1组555 , 最终结果 555,33
            示例文档中有最多有5个为一组重复的, 实际数据中可能会更多.  
              希望能得到大家的帮助, 感谢.
非常感谢准提部林大神的帮助,非常有幸多次收到您的帮助!   本次正解答案在11楼, 想要一起学习的朋友请挪步11楼.
同时也感谢chxw68 老师的参与和sxbjzjf110 的帮助. 以后我会注意把问题描述总结清楚.


           

jinxuanmr

最后的提示,不是删除长工或理工, 是删除777787或者868486的一组

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim d As Object
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     With Worksheets("sheet1")
   
7.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.         arr = .Range("a2:c" & r)
   
9.         ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
10.         m = 0
    
11.         For i = 1 To UBound(arr)
    
12.             If Not d.exists(arr(i, 1)) Then
    
13.                 m = m + 1
    
14.                 For j = 1 To UBound(arr, 2)
    
15.                     brr(m, j) = arr(i, j)
    
16.                 Next
    
17.                 d(arr(i, 1)) = Empty
    
18.             End If
    
19.         Next
    
20.         .Range("k3").Resize(m, UBound(brr, 2)) = brr
    
21.                     
    
22.     End With
    
23. End Sub
    

复制代码

chxw68

与楼的模拟结果不一致，可能理解不正确。

jinxuanmr

chxw68 发表于 2023-4-3 11:32
与楼的模拟结果不一致，可能理解不正确。

老师您好,感谢您的帮助, 图中 学号相同的相邻账号是一组,W119和1124 学号相同,是另外一组,所以需要保留, 您看如何改呢

jinxuanmr

chxw68 发表于 2023-4-3 11:32
与楼的模拟结果不一致，可能理解不正确。

jinxuanmr

chxw68 发表于 2023-4-3 11:32
与楼的模拟结果不一致，可能理解不正确。

jinxuanmr

Wj119与wj124 相邻学号相同, 是独立的一组, wj119&wj124 编号连起来没有重复,所以需要保留

sxbjzjf110

参与一下，不知是否符合要求

准提部林

學號連續擠在一起的...算一組???
問題是連續行數與下方的連續行數不相同呢???