删除具有重复数据 VBA 的行

Question

我正在努力解决应该相当简单的事情，但是，我已经阅读了至少 15 种方法，但似乎无法让它发挥作用。

这是一个示例数据集：

9:30:01 584.7
9:30:01 590
9:30:01 595
9:30:02 584.51
9:30:03 584.62
9:30:04 584.44
9:30:05 584.05

我只想要每秒一排，所以前三排中，只需要留下一排。我不在乎它是第一个还是最后一个，但我一直使用的代码保持最后一个，在这种情况下为 595。

我这样做的方式是使用一个 for 循环来清除与它下面的行具有相同时间的行的内容。然后我对整个范围进行排序。

我想有一种更简单的方法可以从一开始就删除多余的行。但是，当我在范围上使用删除而不是清除时，它不会删除所有重复的行。

这是我希望数据的样子：

9:30:01 595
9:30:02 584.51
9:30:03 584.62
9:30:04 584.44
9:30:05 584.05

我需要对整个工作表进行此操作。时间是 B 列，值是 C 列。

这是我正在使用的代码，

LastRow = ActiveSheet.UsedRange.row - 1 + _
    ActiveSheet.UsedRange.Rows.Count

For RowNum = 2 To LastRow
    If (Range("B" & RowNum) = Range("B" & RowNum + 1)) Then
    Range("B" & RowNum).EntireRow.Clear
    End If
Next RowNum

Range("A2:C" & LastRow).Sort key1:=Range("B2:B" & LastRow), _
order1:=xlAscending, Header:=xlNo

Answer 1

不要循环。使用删除重复项。比任何循环都快。一行代码。

Sub test()
    ActiveSheet.Range("B:C").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

编辑：截图

之前

之后

编辑：在 Excel 2011 for Mac 中不起作用（如图）。

Answer 2

这应该可以解决问题：

Sub jzz()
Dim i As Long
For i = 1 To Cells.SpecialCells(xlLastCell).Row 'loop from row 1 to last row
    If Cells(i, 1) <> vbNullString Then 'check if something is in the cell
        If Cells(i, 1) = Cells(i + 1, 1) Then 'check if cell is the same as next cell
            Cells(i + 1, 1).EntireRow.Delete 'if so; delete
            i = i - 1 'go back one row
        End If
    End If
Next i
End Sub

另一种选择是自下而上，如下所示：

Sub jzz()
Dim i As Long
For i = Cells.SpecialCells(xlLastCell).Row to 1 step -1'loop from last row to row 1
    If Cells(i, 1) <> vbNullString Then 'check if something is in the cell
        If Cells(i, 1) = Cells(i + 1, 1) Then 'check if cell is the same as next cell
            Cells(i + 1, 1).EntireRow.Delete 'if so; delete
        End If
    End If
Next i
End Sub

如果是个人，您更喜欢使用什么。也请考虑一下 teylyn 的回答，在这种情况下，它是非常有用的。