VBA代码实现删除重复数据（包含标题表头）

军生

各位大神：
    早上好！
   现有的代码，不能删除表头标题：
   
Sub test1()

    Cells.Select
   Worksheets("出荷扫描查询").Range("$A$1:$O$10000").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6 _
        , 7, 8, 9, 10, 11, 12, 13, 14, 15), Header:=xlYes
        Call test2
End Sub

kevinchengcw

试一下=xlno

ykcbf1100

工作簿有问题，字典用不了。

代码已写，你自己试用一下吧。

ykcbf1100

仅供参考。。。

1. Sub ykcbf()  '//2024.12.19
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     With Sheets("出荷扫描查询")
   
4.         r = .Cells(Rows.Count, 1).End(3).Row
   
5.         c = .UsedRange.Columns.Count
   
6.         arr = .[a1].Resize(r, c)
   
7.         zrr = .[a1].Resize(r, c)
   
8.         ReDim brr(1 To r, 1 To c)
   
9.         For i = 1 To UBound(arr)
   
10.             If arr(i, 1) <> Empty Then
    
11.                 st = arr(i, 1)
    
12.                 For j = 2 To 7
    
13.                     st = st & "|" & arr(i, j)
    
14.                 Next
    
15.                 If Not d.exists(st) Then
    
16.                     m = m + 1
    
17.                     d(st) = m
    
18.                     For j = 1 To UBound(arr, 2)
    
19.                         brr(m, j) = arr(i, j)
    
20.                     Next
    
21.                 End If
    
22.             End If
    
23.         Next
    
24.         .UsedRange.ClearContents
    
25.         .[a1].Resize(m, c) = brr
    
26.     End With
    
27. End Sub
    

复制代码

军生

kevinchengcw 发表于 2024-12-19 10:55
试一下=xlno

牛，谢谢！

军生

kevinchengcw 发表于 2024-12-19 10:55
试一下=xlno

谢谢！
但是删除后，还有空行

kevinchengcw

军生 发表于 2024-12-19 11:26
谢谢！
但是删除后，还有空行

空行也是不重复行的一部分，你可以再定位空值删除

军生

ykcbf1100 发表于 2024-12-19 11:07
工作簿有问题，字典用不了。

代码已写，你自己试用一下吧。

谢谢，但删除后显示重复区域的格式

ykcbf1100

军生 发表于 2024-12-19 11:35
谢谢，但删除后显示重复区域的格式

把ClearContents改成Clear即可。

军生

kevinchengcw 发表于 2024-12-19 11:29
空行也是不重复行的一部分，你可以再定位空值删除

空行也是不重复行的一部分，你可以再定位空值删除
怎么加一句代码？