excel刪除具有相同數據的行

Question

我有一個包含兩列數據的excel文檔。 第一列有19k行數據，第二列有2k行數據。 第2列中的所有數據都存在於第1列中。 我想刪除第一列中包含第二列數據的所有行。 有沒有辦法如何做到這一點提前> 感謝，Laziale

Answer 1

此代碼將工作，通過柱A和刪除，其具有在任何行中出現在列B值的任何行它假定兩個列A和B值在第1行開始：

Sub RemoveDuplicates() 

    Dim colB As Variant, iRow As Long 
    colB = Range("B1:B2000") //Add you reference for column B 

    For iRow = Range("A1").End(xlDown).Row To 1 Step -1 
     If Not IsError(Application.Match(Cells(iRow, 1), colB, 0)) Then 
      Cells(iRow, 1).EntireRow.Delete 
     End If 
    Next iRow 

End Sub 

Answer 2

這可能是更容易與grep做到這一點：每列

導出到文件，並做了「的grep -v」 。這裏是一個例子：

$ cat col1.txt 
A 
B 
C 
D 
$ cat col2.txt 
B 
D 
$ grep -v -f col2.txt col1.txt 
A 
C 

Answer 3

使用VBA可能是最簡單的方法。試試下面的宏。它將刪除列A中與列B中的任何值匹配的所有單元格。如果您需要爲其他列執行此操作，只需調整代碼以匹配工作簿的設計即可。

Sub removematches() 

Dim firstcolumn() As Variant 
Dim colA As Range 
Dim colB As Range 
Dim i As Long, del As Long 

'This will set the ranges to look in. Note that this will only work for data with no blank cells. If you have blank cells, you can change these Set statements to the following: 
' Set colA = Range("A1:A100") if you have 100 rows you want to look at. 
Set colA = Range("A1", Range("A1").End(xlDown)) 
Set colB = Range("B1", Range("B1").End(xlDown)) 

firstcolumn = colA 

ReDim Preserve firstcolumn(1 To UBound(firstcolumn), 1 To 2) As Variant 
i = 1 
del = 0 

Do While i <= UBound(firstcolumn) 
    firstcolumn(i, 2) = Application.WorksheetFunction.CountIf(colB, firstcolumn(i, 1)) 
    If firstcolumn(i, 2) > 0 Then 
     Range("A1").Offset(i - del - 1, 0).Delete Shift:=xlUp 
     del = del + 1 
    End If 
    i = i + 1 
Loop 

End Sub