如何在excel中同時比對兩欄

須用vba。

如相符者，兩表俱刪？還是獨刪sheet1或獨刪sheet2 ？

2009-11-16 23:53:32 補充：
請用複製本測試，以防不測之災。
祝好運。


Sub X()

Set ws2 = Sheets("Sheet2")
EndRow2 = ws2.Cells(Rows.Count, 1).End(xlUp).Row

Sheets("Sheet1").Select
EndRow1 = Cells(Rows.Count, 1).End(xlUp).Row

For R = EndRow1 To 2 Step -1
Duplicate = False
For i = EndRow2 To 2 Step -1
If ws2.Cells(i, 1) = Cells(R, 1) And ws2.Cells(i, 2) = Cells(R, 2) Then
Duplicate = True
ws2.Rows(i).Delete
End If
Next
If Duplicate Then Rows(R).Delete
Next

End Sub

2009-11-17 00:12:21 補充：
＞另外請問要比對的資料是不是之中不能有空格

我看漏了這句。
資料中有空格不成問題，可在程式中處理。可是我看漏了這句，沒處理到，如有須要，我再來補上。

2009-11-17 21:17:21 補充：
不用 vba 就用 formula ，可是 formula 不能做刪除動作。


sheet1 C2公式
=IF(SUMPRODUCT((Sheet2!A$2:A$1000=A2)*(Sheet2!B$2:B$1000=B2)),"與sheet2相同","")
向下填滿


sheet2 C2公式
=IF(SUMPRODUCT((Sheet1!A$2:A$1000=A2)*(Sheet1!B$2:B$1000=B2)),"與sheet1相同","")
向下填滿

在sheet3裡面

用vlookup這個程式試試看，簡單好用。

ps：最好你要比對的欄位在最左邊，比較容易試的出來。

我要相符者，兩表俱刪，留下不同的。
另外請問要比對的資料是不是之中不能有空格