Tag: 查找事件

根据它们的出现删除重复项

我想检查某个列（W）的重复项（出现次数存储在另一列（AZ）），并删除所有行这种方式： 值在列中find两次 – 只删除包含该值的一行。 在列中find更多的值 – 删除所有包含值的行。 我的代码工作得很好，但有时它不会删除所有重复项，因为它应该这样做。 任何想法改善？ 编辑：更新的代码工作真的很好，除了它总是错过一个重复，并保持不被删除。 fin = ws.UsedRange.Rows.count For i = 2 To fin ws.Range("AZ" & i).value = Application.WorksheetFunction.CountIf(ws.Range("W2:W" & fin), ws.Range("W" & i)) Next i For j = fin To 2 Step -1 If ws.Range("AZ" & j).value > 2 Then ws.Range("AZ" & j).EntireRow.Delete fin = ws.UsedRange.Rows.count ElseIf ws.Range("AZ" & […]