删除重复项，如A列和B列C列内容相同。则C列数据只留一个，其余删除。

zzq657266102

zzq657266102

第二张图片贴错了。。。。。

ww87725244

1. Sub aa()
   
2. Dim ar, i&, d As Object, s$
   
3. Set d = CreateObject("scripting.dictionary")
   
4. With Sheet1
   
5.     ar = .Range("a1").CurrentRegion
   
6.     For i = 1 To UBound(ar)
   
7.         s = ar(i, 1) & "|" & ar(i, 2) & "|" & ar(i, 3)
   
8.         If d.exists(s) Then
   
9.             ar(i, 3) = ""
   
10.         End If
    
11.         d(s) = ""
    
12.     Next
    
13. End With
    
14. Sheet2.Range("a1").Resize(UBound(ar), UBound(ar, 2)) = ar
    
15. End Sub

复制代码

zzq657266102

清风竹-

请看附件。

zzq657266102

清风竹- 发表于 2023-6-8 11:02
请看附件。

谢谢，谢谢

ykcbf1100

参与一下。

z865593849

查收。。。。。。。。。

zzq657266102

清风竹- 发表于 2023-6-8 11:02
请看附件。

请教下，我是要改变计算表格的位置，从第5行开始 ，从ABC列变为DGH列。代码需要改哪些参数

清风竹-

zzq657266102 发表于 2023-6-8 11:33
请教下，我是要改变计算表格的位置，从第5行开始 ，从ABC列变为DGH列。代码需要改哪些参数

上传附件，看看表格是什么样的，以便有针对性的修改。