请问各位大神如何用VBA删除重复数据及与其对应的图片一起删除，只保留一个

feixiang82091 · 发表于 2024-3-23 09:13

新建 1 .7z (1.37 MB, 下载次数: 6)

微信截图_20240323091100.png

类似这样把这两列的重复数据与图片删掉，只保留一个就可以了，因为每天的数据量有点大，所以想问下各位大神有没有方法可以实现一键删除的，谢谢各位大神。

3190496160 · 发表于 2024-3-23 09:43

Sub 删除行()
Application.ScreenUpdating = False
With ActiveSheet
r = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To r
      .Cells(i, 3).Formula = "=COUNTIF(A2:A" & r & ",A" & i & ")"
Next i
For i = r To 2 Step -1
      If .Cells(i, 3).Value > 1 Then
         .Rows(i).Delete
      End If
Next i
.Range("c2:c" & r) = Empty
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160 · 发表于 2024-3-23 09:44

新建 1 .rar (1.37 MB, 下载次数: 4)

feixiang82091 · 发表于 2024-3-23 10:37

感谢大神出手帮忙，谢谢

gwjkkkkk · 发表于 2024-3-23 12:03

字典去重吧。。。

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

[求助] 请问各位大神如何用VBA删除重复数据及与其对应的图片一起删除，只保留一个

浏览过的版块