は、私は列の両方を比較したいと彼らは私が空白のセルを削除したい重複している場合は、私はしたくない2列を比較して、私は、データシートの下にこれを持って

Question

をシフトせずに重複を削除、

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

シフト。このような例 、

COLA  COLB 
    ABC   10 

    ABC   15 
    XYZ   10 
    XYZ   15 

は、どのように私はエクセルでこれを行うことができますか？

乾杯！

Answer 1

ないVBA方法

ステップ1の式を用いて除去する行を識別する。

この式をC2に置き、記入してください。

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

ステップ2フィルタのみ

ステップ3 "REMOVE" のための全体の行と押すだけDEL]ボタンを選択し、フィルタを削除します。

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