2024年6月12日发(作者：第五心诺)

Range("B1").Activate

eets("Sheet1").

eets("Sheet1"). Key:=Range("B1"), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With eets("Sheet1").Sort

.SetRange Range("A:B")

.Header = xlNo

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

End Sub

2024年6月12日发(作者：第五心诺)

Range("B1").Activate

eets("Sheet1").

eets("Sheet1"). Key:=Range("B1"), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With eets("Sheet1").Sort

.SetRange Range("A:B")

.Header = xlNo

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

End Sub