关于使用EXCEL剔除数据

来源：百度知道 编辑：UC知道 时间：2024/06/06 19:28:06
假如说在一个EXCEL表格中,有两列数据－－商品号和价格，有的商品号相同但价格不同，想取价格高的留下，删除商品号重复但价格低的行，应该怎么做呢？
例：
商品号 价格
01 10
02 20
03 30
01 20
要删除重复商品号的两行中价格低的行。
注：真实表格中数据很多，不希望使用自动筛选的方法。等待高手解答。

如果你的商品号在A列，价格在B列则用下边地方法。如果格式不同要修改程序中的部分数字。
请提前做好数据备份，数据不负责恢复。

按ALT+F11 插入 模块
输入以下代码：

Sub aa()
Dim a&, t&
a = Range("a65536").End(xlUp).Row
For t = 1 To a
If Cells(t, 1) = Cells(t + 1, 1) Then
If Cells(t, 2) > Cells(t + 1, 2) Then
Rows(t + 1).Clear
Else: Rows(t).Clear
End If
End If
Next
Range("a1:a" & a).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

完成之后按F5键 执行。