[已解决]Excel中VBA如何实现查重并根据条件判断删除其中重复数据

bdx1986 · 发表于 2011-7-19 22:01

本人要向多个公司采购图书，工作中经常接触上万条书目数据，每个公司提供的书目数据互相重复，价格也不一样。比如
A列  书名
B列  价格
C列  进货商

如何用VBA实现，A列书名的查重，并根据B列的价格高低删除高价的书，保留低价书

求高手帮忙，本人太久不接触程序了，一下子找不到头绪

最佳答案

月排行榜 / 总排行榜

兰色幻想

2011-7-22 15:17

Sub 删除重复()
  On Error Resume Next
  Dim x As Integer, r As Integer
  For x = 1 To Range("a65536").End(xlUp).Row
If Cells(x, 1) = "" Then Exit Sub
r = Application.Match(Cells(x, 2), Range("b:b"), 0)
If r < x Then
   If Cells(r, 8) <= Cells(x, 8) Then
      Rows(x).Delete
   Else
      Rows(r).Delete
   End If
      x = x - 1
End If
  Next x
End Sub

跳转到最佳答案楼层

爱疯 · 发表于 2011-7-20 15:37

假如书名一样，价格一样，怎么办呀

爱疯 · 发表于 2011-7-20 16:15

b2.rar (92.06 KB, 下载次数: 104)

bdx1986 · 发表于 2011-7-20 20:36

一样随便留那个都得
谢谢！

bdx1986 · 发表于 2011-7-20 21:12

一样随便留那个都得
谢谢！

bdx1986 · 发表于 2011-7-20 21:13

一样就随便留一个

谢谢

tayisha · 发表于 2011-7-21 12:19

也想知道最终答案呢{:021:}

bdx1986 · 发表于 2011-7-21 12:42

实际应用中，我需要保留整行数据，因为除了书名、书价、公司、这几列关键数据外，还有其他包括书号，分类等信息都在一行要保留，要如何修改呢？

爱疯 · 发表于 2011-7-21 13:15

这样吧，你分别给出执行前和执行后俩张工作表。
只要说清需求，保留少量记录。列数按实际情况。

bdx1986 · 发表于 2011-7-21 14:34

根据书名判断是否重复，重复则判断折后价，保留价格低的书，价格一样时随便保留一个

		自动登录	找回密码
密码			注册