【www.gdgbn.com--excel】
Sub USEMATCH()Dim s_p As String, e_p As String
Dim num As Integer
num = 0
For Each M In Range("a:a")
If M.Value <> "" Then
num = num + 1
Else
Exit For
End If
Next M
erange = "b" & num
erange = "b2:" & erange
N = 1
a = 2
currange = "b" & a
Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
xlSortNormal, DataOption2:=xlSortNormal
Columns("A:A").Select
Selection.Insert Shift:=xlToRight '最左插入一列
Set curCell = Worksheets(Sheets(1).Name).Range(currange)
For Each M In Range(erange)
On Error GoTo ErrorHandler
If M.Offset(0, -1).Value <> "" Then GoTo mynext