移除重複 record

先把 records sort 好

Sub remove_duplicated_rec()
Worksheets(1).Activate
lastr = Rows(Rows.Count).End(xlUp).Row
r = 2
Do While r <= lastr * 2 If Cells(r, 1) = Cells(r - 1, 1) And Cells(r, 1) <> "" Then
Rows(r).Delete Shift:=xlUp
r = r - 1
End If
r = r + 1
Loop
End Sub