在vba的时间范围内删除重复项(例如，在一周内删除重复项)
在vba的时间范围内删除重复项(例如，在一周内删除重复项)
提问于 2018-07-03 03:14:15
我正在做一项研究，研究参与者如果在两周内再次参与，就算作重复，但如果他们在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周之后)？我有上千排。
非常感谢
回答 1
Stack Overflow用户
发布于 2018-07-03 06:26:54
尝试这个删除重复的
Sub Duplicates()
Dim i As Long
i = ActiveSheet.UsedRange.Rows.Count
x = Cells(2, 2).Value
For j = 3 To i
If Cells(j, 2).Value = "" Then
Cells(j, 2).Value = x
Else
x = Cells(j, 2).Value
End If
Next j
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/51146169
复制相关文章
相似问题
腾讯云开发者
