excel多列数据对比

发布网友发布时间：2022-04-24 07:09

共3个回答

热心网友时间：2022-06-17 07:41

亲，如果一定要达到你这种“挖洞”的效果，那貌似只有VBA了。

演示效果和代码如下：

Sub qcf()
Dim d
Set d = CreateObject("Scripting.Dictionary")
Dim rg As Range
For Each rg In UsedRange
If d.exists(rg & "") Then rg = "" Else d(rg & "") = ""
Next
Set d = Nothing
End Sub

追问那个按钮是怎么出来的？

追答

亲，如下图

热心网友时间：2022-06-17 07:41

有点看不懂，B列有1啊，你怎么A列删一个留一个？

如果是“想删除B列跟A列有重复的，你要有辅助列的，C1=if(countif(A:A,B1)>0.5,"",b1)，然后往下拉。这里0.5可以是0-1之间任意数。追问他那个按钮是怎么弄出来的？

追答VBA 宏

热心网友时间：2022-06-17 07:42

原数据在SHEET1，那你在SHEET2的A1输入=IF(COUNTIF(Sheet1!A:A,Sheet1!A1)>1,"",Sheet1!A1)向下填充。B1输入=IF(COUNTIF(Sheet1!A:A,Sheet1!B1)>0,"",Sheet1!B1)向下填充。

excel多列 数据对比

excel多列数据对比