Question

以下是我获得的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。很确定I = 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只是将每个数字与下一个数字进行比较，如果它们相等，检查第二个数字并删除最低数字

删除Excel中的单元格和相邻值，但保留最大数字

2 个答案: