比较2列，并删除重复没有移动

我有这个数据表，

COLA COLB ABC 10 ABC 10 ABC 15 XYZ 10 XYZ 15 XYZ 15 

我想比较两个列，如果他们是重复的，我想删除空白单元格，我不想转移。 比如像这样，

  COLA COLB ABC 10 ABC 15 XYZ 10 XYZ 15 

我怎样才能在Excel中做到这一点？

干杯！！

Answer 1

没有vba的方法

第1步使用公式识别要删除的行。

将此公式放在C2处并填写。

 =IF(COUNTIFS(A$2:A2,A2,B$2:B2,B2)=1,1,"REMOVE") 

步骤2仅筛选“REMOVE”

第3步select整个行，只需按下DEL键，然后删除filter。

Answer 2

尝试这个。

 Option Explicit Dim i, j, count, lastrow As Integer Dim number As Long Sub delete_duplicates() lastrow = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row For i = 1 To lastrow number = Cells(i, 2) For j = 1 To lastrow If number = Cells(j, 2) Then count = count + 1 If count > 1 Then Cells(j, 2) = "" End If End If Next j count = 0 Next i End Sub