VBA宏，用于根据相邻单元格删除重复项及其相邻单元格

Sub RemoveDuplicates()
    Dim rng As Range
    Dim lastRow As Long
    Dim i As Long
    
    '获取当前活动工作表
    Set rng = ActiveSheet.UsedRange
    lastRow = rng.Rows.Count
    
    '从最后一行开始向上循环
    For i = lastRow To 2 Step -1
        '判断当前单元格的值与上一个单元格的值是否相同
        If rng.Cells(i, 1).Value = rng.Cells(i - 1, 1).Value Then
            '如果相同，则删除当前行及其相邻单元格
            rng.Cells(i, 1).EntireRow.Delete
            rng.Cells(i - 1, 1).EntireRow.Delete
        End If
    Next i
End Sub