在VBA中删除多个每周条目

Question

我在excel上有大量数据，数据输入的日期出现在C列中。我试图想出一种方法来删除任何一周的双重条目。我尝试了以下VBA代码，但它没有用。如果我能得到一些帮助，我将非常感激。

Sub deltrial()

Sheets("Sheet2").Select
Dim rng1 As Range
Dim rng2 As Range
Dim i As Range

Dim j As Range


Set rng1 = Range("B2:B58")
Set rng2 = Range("B3:B59")

For Each i In rng1
For Each j In rng2

If j.Value - i.Value < 6 Then

j.ClearContents
End If

Next
Next

End Sub

Answer 1

可以在VBA中调用RemoveDuplicates方法，如下所示：

ActiveSheet.Range("$A$1:$A$8").RemoveDuplicates Columns:=1, Header:=xlNo