刪除重複值程式出現異常現象,不知如何修改.

[M_Judy0]

此程式在判斷Sheet1 D欄值的順序與Sheet2的順序相同時,能刪除重複值,如位置不同,則不能判斷重複值.具體請參見附件.煩請高手幫修正.
程式如下:
Sub test1()
RW = Worksheets(1).UsedRange.Rows.Count
rw2 = Worksheets(2).UsedRange.Rows.Count
For i = 3 To RW - 1
For j = 3 To rw2

If Worksheets(1).Range("d" & i) = Worksheets(2).Range("d" & j) Then
MsgBox "" & Sheets("sheet1").Range("d" & i).Address
Sheets("sheet1").Range("d" & i).EntireRow.Delete

i = i - 1
RW = RW - 1
j = j - 1
End If
Next j
Next i

End Sub

[ChinaOBS]

附件？？

[M_Judy0]

我已附上了,怎麽沒有呢,現怎樣附不上附件.
其實,我有2個工作表,
第一個工作表從B2~D5放如下資料.
箱號 Carton No. Module PN. Module SN.
L2009011247 HD01-121W240B4 L5029-G8Z867T0007A3
L2009011247 HD01-121W240B4 L1039-G91487T0042A3
L2009011247 HD01-121W240B4 L7029-G91129T0029A3

第二個工作表從B2~D15放如下資料.
箱號 Carton No. Module PN. Module SN.
L2009011247 HD01-121W240B4 L5029-G8Z867T0007A3
L2009011247 HD01-121W240B4 L1039-G91487T0042A3
L2009011247 HD01-121W240B4 L7029-G91129T0029A3
L2009011247 HD01-121W240B4 L7029-G91129T0028A3
..........

現在是當sheet1 (D3~D5)的值=sheets d3~D5的值時,Sheet1內的資料會判斷,並會刪除重複值.
L2009011247 HD01-121W240B4 L5029-G8Z867T0007A3
L2009011247 HD01-121W240B4 L1039-G91487T0042A3
L2009011247 HD01-121W240B4 L7029-G91129T0029A3


如sheet1 D3的值<>sheets d3的值時,後續有重複的值,則都不會判斷,也不刪除.
L2009011247 HD01-121W240B4 L1039-G91487T0042A3
L2009011247 HD01-121W240B4 L5029-G8Z867T0007A3
L2009011247 HD01-121W240B4 L7029-G91129T0029A3
望高手幫我修正一下.謝謝!

[send068]

不懂，帮顶