使用辅助数据标准删除重复项

我有2列的数据（与标题）其中A（顺序）总是有重复（有时2-3），但B数据（也顺序）总是唯一的，愚蠢是不存在的。 我发现这个解决scheme@Jeeped和修改，以适应需求 – 显然不工作，因为我不知道如何在代码中定义最大（B）。

Sub RemoDupeMaxB() Dim wb1 As Workbook Dim lr As Long, i As Long Set wb1 = Workbooks(“Survey Beta.xlsm") With wb1.Sheets("VERT SCALES") lr = Application.Max(.Cells(Rows.Count, 1).End(xlUp).Row, _ .Cells(Rows.Count, 2).End(xlUp).Row) For i = lr To 1 Step -1 If .Cells(i, 1).Value > '??? And _ (.Cells(i, 2).Value > Max(B:B)) Then .Rows(i).EntireRow.Delete End If Next i End With End Sub 

我想要vba做的是使用最大（B）的条件从A删除（行）所有其他愚蠢 – 这是保持最大（B）行数据。

Answer 1

我想我会用双重for循环来处理这个问题，像这样

 Sub RemoDupeMaxB() Dim wb1 As Workbook Dim lr As Long, i As Long Set wb1 = Workbooks(“Survey Beta.xlsm") With wb1.Sheets("VERT SCALES") lr = Application.Max(.Cells(Rows.Count, 1).End(xlUp).Row, _ .Cells(Rows.Count, 2).End(xlUp).Row) For i = lr To 1 Step -1 for j = i - 1 to 1 Step -1 If .Cells(i, 1).Value = .Cells(j, 1).Value And _ .Cells(i, 2).Value > .Cells(j, 2).Value Then .Rows(j).EntireRow.Delete End If Next j Next i End With End Sub