如果你的数据有100行,在A1到A100中放置,Alt+F11打开VBA编辑器,插入一个模块,放入如下代码,把光标停在代码中间,按F5运行就好了。PublicSublwy()Range("A1")SelectSEntireCInsertFori=1To100'1和100根据你放数据的位置自己修改,为数据第一行和最后一行的行数。Cells(i,1)=Right(Cells(i,2),1)Nexti'下面A1:B4根据你的数据区域改Range("A1:B4")SortKey1:=Range("A1"),Order1:=xlAscending,Header:=_xlGuess,OrderCustom:=1,MatchCase:=False,Orientation:=xlTopToBottom,_SortMethod:=xlPinYin,DataOption1:=xlSortNormalColumns(1)DeleteEndSub