在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 

Answer 1

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

 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 

Answer 2

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