TruNickyz
2020-05-04T02:06:50+00:00
现在如图表格 [img]https://img.nga.178.com/attachments/mon_202005/04/-7Q5-e0mK22T3cSsg-dr.jpg.medium.jpg[/img]
有的货的销售 批发 会员价格不同
我想只留下不同的价格货物
都一样的直接删除行 方便对比
由于数据有点多，
求大佬给个方便的操作方式
感谢了
不知道能不能明白，要么选不一样的行，要么选一样的删掉
直接销售批发会员三连等，true就是三个价格都相等
[s:ac:汗]抱歉我没看懂，是第一列不同合并相同的？
先用b2，c2，d2的做对比，得出是否有相同值，然后筛选就ok了[s:ac:闪光]
上面工具栏有个筛选，点了之后会在第一行出个小箭头，基本能满足你需求了
E列做辅助列，输入公式：iferror(and(b2=c2，c2=d2)，“保留”)
之后拉到最后一行
然后筛选e列不是“保留”的，左键点一下第二行，按ctrl+⬇，右键删除行
注意ctrl⬇按了之后最好在数据那栏点一个“重新应用”
[quote][pid=418963625,21598877,1]Reply[/pid] Post by [uid=37819824]绝尐元素[/uid] (2020-05-04 10:15):
[s:ac:汗]抱歉我没看懂，是第一列不同合并相同的？[/quote]因为有的货三种价格不同 我就想留下不同的货 这些行 这么说能动嘛
[quote][pid=418963632,21598877,1]Reply[/pid] Post by [uid=60171522]山口山的小菜鸟[/uid] (2020-05-04 10:15):
先用b2，c2，d2的做对比，得出是否有相同值，然后筛选就ok了[s:ac:闪光][/quote]老哥 说的再细点，我只会基础 有函数，公式就蒙了
Reply to [pid=418964585,21598877,1]Reply[/pid] Post by [uid=5382719]weiliwang110[/uid] (2020-05-04 10:19)
[s:ac:吓]那行的话，相同的物料是相同的么？
[quote][pid=418964387,21598877,1]Reply[/pid] Post by [uid=2388901]子系中山狼[/uid] (2020-05-04 10:18):
E列做辅助列，输入公式：iferror(and(b2=c2，c2=d2)，“保留”)
之后拉到最后一行
然后筛选e列不是“保留”的，左键点一下第二行，按ctrl+?，右键删除行
注意ctrl?按了之后最好在数据那栏点一个“重新应用”[/quote]老哥 你这是最细的方法， 不过你说的11015是啥啊
我表格只会基础
E2=IF(AND(B2=C2,C2=D2),1,"")
然后F5定位，定位条件，公式，只勾选数字，右键删除，删除整行。
[quote][pid=418964904,21598877,1]Reply[/pid] Post by [uid=37819824]绝尐元素[/uid] (2020-05-04 10:21):
[s:ac:吓]那行的话，相同的物料是相同的么？[/quote]货的号不同啊
[quote][pid=418965498,21598877,1]Reply[/pid] Post by [uid=3277411]火车不是推的[/uid] (2020-05-04 10:23):
E2=IF(AND(B2=C2,C2=D2),1,"")
然后F5定位，定位条件，公式，只勾选数字，右键删除，删除整行。[/quote]老哥 我等下试试
思路有了，就是不知道操作怎么样
在e2填写，=if(b2=b3=b4，1，0)然后下拉，最后筛选就行了
[quote][pid=418965022,21598877,1]Reply[/pid] Post by [uid=5382719]weiliwang110[/uid] (2020-05-04 10:21):
老哥 你这是最细的方法， 不过你说的11015是啥啊
我表格只会基础[/quote]ctrl+向下方向键
Sub 删除重复值()
Dim i As Integer
For i = Range("a65536").End(xlUp).Row To 2 Step -1
If Range("B" & i) = Range("C" & i) And Range("B" & i) = Range("D" & i) And Range("C" & i) = Range("D" & i) Then
Range("B" & i).EntireRow.Delete
End If
Next
MsgBox ("删除完成")
End Sub
把这个粘贴到你的EXCEL VBA里，然后运行，里面所有 C列=D列=E列的全部删完。
怎么用VBA? 看看下面这个
[url]https://www.sohu.com/a/335597210_120275108[/url]
学一点对你处理这种EXCEL效率不要提高太多