1.  多行独立排序 by:狼版主

 
Sub 多行独立排序()
  Dim I As Long
  With [B1].Resize(1, [B1].End(xlToRight).Column - 1)
  For I = 0 To [A1].End(xlDown).Row - 1
  .Offset(I, 0).Sort Key1:=[B1].Offset(I, 0), Order1:=xlDescending, Orientation:=xlLeftToRight
  Next
  End With
End Sub
 
或
 
Sub 多行独立排序()
  Dim I As Long
  For I = 1 To [A1].End(xlDown).Row
  Rows(I).SpecialCells(xlCellTypeConstants, 23).Offset(, 1).Sort Key1:=Cells(I, 2), Order1:=xlDescending, Orientation:=xlLeftToRight
  Next
End Sub