excel中vba寻找行与列

Sub ºê()
Range(“A1”).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Sort Key1:=Range(“A2”), Order1:=xlAscending, Key2:=Range(“B2”), Order2:=xlAscending, Header:=xlGuess
rs = Selection.Rows.Count
For r1 = 2 To rs
For r2 = r1 + 1 To rs
If Cells(r2, 1) <> Cells(r1, 1) Or Cells(r2, 2) <> Cells(r1, 2) Then Exit For
Rows(r2 & “:” & r2).Delete Shift:=xlUp
rs = rs - 1
r2 = r2 - 1
Next
Next
Range(