在vba的时间范围内删除重复项（例如一周内的重复项）

Question

我正在研究一项研究，参与者如果在两周内再次参加，则被视为重复，但如果他们在2周的冷静期后再次参与，则不会重复。我需要一种方法来在2周内检查/删除重复的参与者，但是如果他们在2周后仍是重复参与者，则将其保留。

数据看起来像这样：

Test    Participant ID   Date
1       550              01/01/2018
2       550              02/01/2018
3       677              05/01/2018
4       550              15/02/2018

通常我会使用 Range.RemoveDuplicates 来删除重复项。这将删除测试2和4。

Sub removeduplicate()
Range("A1:C5").CurrentRegion.RemoveDuplicates Columns:=Array(2), Header:=xlYes
End Sub

是否可以进行任何修改或添加，以便删除第2行中的重复项，但不删除第4行中的重复项（因为超过2周）？我有数千行。

非常感谢您

Answer 1

尝试此操作以删除重复项

documentfragment