条目不同时删除excel宏中的条目

Question

我目前正在尝试创建一个程序，它将搜索excel文件并删除重复的条目。

我已经制作了这样做的代码。但是，我还需要它在复制之前和复制之后删除条目。我到处寻找，找不到任何例子，请帮忙！

这些是我的示例条目

The1
Car
Car
The2

我需要它删除The1和两个Car条目离开The2。 这是我到目前为止的代码

Sub rar()
    Dim i As Long
    With Worksheets("Sheet1") 'DEFINES WHICH SHEET TO USE'
      For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
        If Cells(i, 1).Value = Cells(i - 1, 1).Value Then
          Rows(i+1).Delete
          Rows(i).Delete
          Rows(i-1).delete  
        End If
     Next i
  End With   
End Sub

Answer 1

正如Chris Neilsen在下面指出的那样 - 使用With是一个好主意，但您需要在单元格和范围引用之前加上.，以确保它们引用您在{中指定的工作表{1}}令牌

试试这个：

With

注意：未经测试 - 但想法是在循环时创建构建范围，然后在最后删除。这样您就不必担心向后循环。