求教，VBA删除重复行问题。

上官瑶瑶 · 发表于 2019-11-15 09:03

求老师指点，如果A/B/C三列数据一样，就认为是重复行，保留一行即可，其他的行删除了。
原表：

原表

想得结果：

结果

chxw68 · 发表于 2019-11-15 09:09

Sub test()
Dim r%, i%
Dim arr, brr
Dim d As Object
Dim rng As Range
Set d = CreateObject("scripting.dictionary")
With Worksheets("sheet1")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
Set rng = .Rows(r + 1)
arr = .Range("a1:f" & r)
For i = 2 To UBound(arr)
xm = arr(i, 1) & "+" & arr(i, 2) & "+" & arr(i, 3)
If Not d.exists(xm) Then
d(xm) = ""
Else
Set rng = Union(rng, .Rows(i))
End If
Next
rng.Delete
End With
End Sub

复制代码

chxw68 · 发表于 2019-11-15 09:09

详见附件。

wangqh8203 · 发表于 2019-11-15 09:17

本帖最后由 wangqh8203 于 2019-11-15 09:20 编辑

Sub 宏1()
ActiveSheet.UsedRange.RemoveDuplicates Columns:=Array(1, 2, 3), _
Header:=xlYes
End Sub

wangqh8203 · 发表于 2019-11-15 10:17

这个代码就是用的excel去除重复值功能

NaCl_cn · 发表于 2019-11-15 10:42

select distinct 所在模块,告警内容,发生时间 from [sheet1$]

大雪了无痕 · 发表于 2019-11-15 11:05

直接删除重复值不就搞定了吗？

cj19 · 发表于 2020-2-13 13:44

chxw68 发表于 2019-11-15 09:09

如果我也想达到重复行只保留一行的效果（最好能够在确认删除之前提醒重复的行数数量），但是我想通过表格中A到AV列进行匹配是否是重复的行，或者我可以选择指定的几列进行匹配是否是重复的行。如：A,C,D,E,G,H,I,L,M,N,P,R,Y,Z,AC,AE,AF,AS

上面的附件是为了说明需要，特意做的例表。

不是专门做vba编程的，但是工作中又是需要用到数据，所以想提升一下效率。希望老师帮忙看看这个代码怎么写，先谢谢了！

异相 · 发表于 2024-9-30 21:30

如果是完全匹配的话，可以这样写：
Sub test()
  Dim r%, i%
  Dim arr, brr
  Dim d As Object
  Dim rng As Range
  Dim columnCount As Long
  Set d = CreateObject("scripting.dictionary")
  With Worksheets("sheet1")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
columnCount = .Cells(1, .Columns.Count).End(xlToLeft).Column
Set rng = .Rows(r + 1)
arr = .Range("a1:f" & r)
For i = 2 To UBound(arr)
      For j = 1 To columnCount
         If j = 1 Then
            xm = arr(i, j)
         Else
            xm = xm & "+" & arr(i, j)
         End If
      Next j
'    xm = arr(i, 1) & "+" & arr(i, 2) & "+" & arr(i, 3) & "+" & arr(i, 4)
   If Not d.exists(xm) Then
      d(xm) = ""
   Else
      Set rng = Union(rng, .Rows(i))
   End If
Next
rng.Delete
  End With
End Sub

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

[求助] 求教，VBA删除重复行问题。

评分