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

jinxuanmr · 发表于 2023-4-3 11:09

本帖最后由 jinxuanmr 于 2023-4-3 14:53 编辑

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

  实际的数据是根据学号主和编号次降序排列的, 数据中相同学号ID的编号视为一组,
   其中有很多两组或多组的编号有重复展示, 需要对重复展示的编号组进行删除处理.无论上下删,只保留一组就行.
      简单举例: 555,33,555 其中555展示了两次, 删除1组555 , 最终结果 555,33
         示例文档中有最多有5个为一组重复的, 实际数据中可能会更多.
            希望能得到大家的帮助, 感谢.

非常感谢准提部林大神的帮助,非常有幸多次收到您的帮助! 本次正解答案在11楼, 想要一起学习的朋友请挪步11楼.
同时也感谢chxw68 老师的参与和sxbjzjf110 的帮助. 以后我会注意把问题描述总结清楚.

截屏2023-04-03 11.12.07 (1).png

jinxuanmr · 发表于 2023-4-3 11:11

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

chxw68 · 发表于 2023-4-3 11:32

Sub test()
Dim r%, i%
Dim arr, brr
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Worksheets("sheet1")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
arr = .Range("a2:c" & r)
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
m = 0
For i = 1 To UBound(arr)
If Not d.exists(arr(i, 1)) Then
m = m + 1
For j = 1 To UBound(arr, 2)
brr(m, j) = arr(i, j)
Next
d(arr(i, 1)) = Empty
End If
Next
.Range("k3").Resize(m, UBound(brr, 2)) = brr
End With
End Sub

复制代码

chxw68 · 发表于 2023-4-3 11:32

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

jinxuanmr · 发表于 2023-4-3 12:23

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

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

jinxuanmr · 发表于 2023-4-3 12:25

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

jinxuanmr · 发表于 2023-4-3 12:33

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

jinxuanmr · 发表于 2023-4-3 12:39

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

sxbjzjf110 · 发表于 2023-4-3 13:20

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

准提部林 · 发表于 2023-4-3 13:43

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

		自动登录	找回密码
密码			免费注册

[已解决] 删除每两组或多组账号重复展示的信息

评分

评分

评分