作者titan200711

With Worksheets("(你工作表的名稱)").Sort
.SortFields.Clear
.SortFields.add key:=Range("b1"), Order:=xlAscending '這裡看是要遞增還是遞減 xlDescending

.SetRange Range("a1").CurrentRegion
.Header = xlYes
.Apply
End With