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

【问题标题】：Delete cell and adjacent value in Excel, but keep the largest number删除Excel中的单元格和相邻值，但保留最大的数字
【发布时间】：2016-05-04 20:42:03
【问题描述】：

这是我得到的 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

【问题讨论】：

是一列还是两列？

标签： excel subroutine

【解决方案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

【讨论】：

您好！感谢您的快速响应，它在 A 和 B 中，UPC 在 A 中，数量在 2 中。它还有标题。
所以修改代码以满足您的需要。我完成了 99% 的工作。
在我们说话的时候尽我所能，但没有另一列包含绑定数据的内容会改变一切吗？
发布您正在尝试的代码。 change everything?呃，没有。而且逻辑（最有价值的部分）当然不会改变。
改为编辑您的 OP。

【解决方案2】：

由于你没有输入任何代码，我以同样的方式回答：P 只需将每个数字与下一个数字进行比较，如果它们相等，检查第二个数字并删除最低的数字

【讨论】：