在Excel中删除单元格和相邻的值,但保持最大的数字

这是我得到的Excel表的一个例子:

1631823842 1 1631823842 2 1631823842 3 1631823853 1 1631823853 2 1631823859 1 1631823859 2 1631823859 3 

我试图找出如何删除所有重复,除了最大的。 所以我会留下:

 1631823842 3 1631823853 2 1631823859 3 

我怎样才能完成这与Excel?

尝试,但我不知道什么命令是多列。 试过A:B和A,B。 很确定我= 2是正确的。

这里是:

 Sub sclera() Dim lastRow As Long e = 1 With ActiveSheet lastRow = .Cells(.Rows.Count, "A:B").End(xlUp).Row For I = 2 To lastRow If Left(.Cells(I + 1, 1), 10) <> Left(.Cells(I, 1), 10) Then .Cells(e, 2) = .Cells(I, 1) e = e + 1 End If Next End With End Sub 

这假定你的数据全部在一列中。

 Sub sclera() Dim lastRow As Long e = 1 With ActiveSheet lastRow = .Cells(.Rows.count, "A").End(xlUp).Row 'assuming your data is in column A For I = 1 To lastRow 'assuming it starts on row 1 If left(.Cells(I + 1, 1), 10) <> left(.Cells(I, 1), 10) Then .Cells(e, 2) = .Cells(I, 1) e = e + 1 End If Next End With End Sub 

既然你不提供任何代码,我用同样的方式回答:P只是比较每个数字与下一个数字,如果他们相等,检查第二个数字,删除最低