![我怎样才能从这个 Excel 电子表格中删除重复的值](https://linux22.com/image/1405372/%E6%88%91%E6%80%8E%E6%A0%B7%E6%89%8D%E8%83%BD%E4%BB%8E%E8%BF%99%E4%B8%AA%20Excel%20%E7%94%B5%E5%AD%90%E8%A1%A8%E6%A0%BC%E4%B8%AD%E5%88%A0%E9%99%A4%E9%87%8D%E5%A4%8D%E7%9A%84%E5%80%BC.png)
我有一个包含大约 15K 行数据的电子表格。此电子表格中有重复值,这些值由 A 列和 B 列组合而成。如何根据 C 列的内容从此电子表格中删除重复项?我想删除重复项,但我只想删除 C 列中值为“N/A”的重复项(保留 c 列中包含“no ip proxy-arp”的行)
1.1.1.1,interface GigabitEthernet0/1,no ip proxy-arp,Duplicate
1.1.1.1,interface GigabitEthernet0/1,N/A,Original
1.1.1.1,interface GigabitEthernet0/1.10,N/A,Original
1.1.1.1,interface GigabitEthernet0/1.26,N/A,Original
1.1.1.1,interface GigabitEthernet0/2,no ip proxy-arp,Duplicate
1.1.1.1,interface GigabitEthernet0/2,N/A,Original
1.1.1.1,interface GigabitEthernet0/2.10,no ip proxy-arp,Duplicate
1.1.1.1,interface GigabitEthernet0/2.10,N/A,Original
1.1.1.1,interface GigabitEthernet0/2.26,no ip proxy-arp,Duplicate
答案1
这恰好在我的剪贴板中 -
Sub dupl()
Dim c As Range
For Each c In Range("A1:A467")
If c.Value = c.Offset(1).Value And c.Offset(, 1).Value = c.Offset(1, 1).Value And c.Offset(1, 2) = "N/A" Then
c.Offset(1).EntireRow.Delete
End If
Next
End Sub
确保对 A 列 AZ 和 B 列 AZ 进行排序,并将范围更改为适当的范围。